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26-APR-76 
29-MAR-78 


JOHN EGOLF 
BARRY SUSSMAN 


SEQ 0002 





SEQ 0003 


ABSTRACT 


CWQAA IS A DIAGNOSTIC WHICH WAS WRITTEN TO TEST 

THE M5911 MODULE. THIS PROGRAM VERIFIES THE DATA WITHIN 
THE ROM, VERIFIES FUNCTIONS OF THE 600HZ CLOCK, AND CHECKS 
THE BUS BUFFER BY MEANS OF THE TEST BOX PROVIDED WITH 

THE 11WO3-AA_ SYSTEM. THIS PROGRAM WAS WRITTEN EXPRESSLY 
FOR THE 11WO3-AA SYSTEM AND TAKES ADVANTAGE OF ALL UNITS 
WITHIN THE SYSTEM. THIS PROGRAM MUST BE RUN AFTER ALL 

CPU TESTS, MEMORY TESTS, AND DLV11 TESTS. 


REQUIREMENTS 
EQUIPMENT 
11WO3-AA SYSTEM, WHICH CONSISTS OF: 


KD11-F LSI-11 PROCESSOR (WITH 4K OF MEMORY) 
12K MOS RAM MEMORY 
2 DLV11 SERIAL LINE UNITS 
SPECIAL MODULE 
M5911 = BUS BUFFER 

BOOTSTRAP ROM 

600HZ CLOCK 
H780 POWER SUPPLY 
ALUMINUM CASE 17 X 21 X 7.5" 
SPECIAL OPERATORS PANEL 
POWER CORD 


CABLE, EXTERNAL BUS -6FT. 
H9270 BACKPLANE ASSEMBLY 
TEST BOX 


STORAGE 


PROGRAM WILL LOAD IN 4K BUT RESERVES THE RIGHT TO USE 16K 
(ADDRESS 000000 - 077777). 


LOADING PROCEDURE 


THIS PROGRAM MAY BE LOADED LIKE ANY OTHER PROGRAM IS 
LOADED. THERE ARE NO SPECIAL LOADING PROCEDURES. 





STARTING PROCEDURE 


IF DESIRED, AFTE 
GISTER MAY BE SE 
START OF EXECUTI 
4.2, THERE ARE T 
SA 200 


SA 210 


CONTROL SWITCH S 
THE SOFTWARE SWI 
ODT AND MODIFYIN 
THE SWITCH REGIS 
AND WHILE IT IS 
AND IF THE CPU P 
ISN'T BEING EXEC 
(SWR)=/0 


THE USER MAY THE 
OCTAL) NEW SETTI 


SWITCH REGISTER 


NONE. FOR THE E 
OPTIONS ARE ‘’SYS 


STARTING ADDRESS 
AS MENTIONED BEF 
SA 200 
SA 210 


R PROGRAM IS LOADED, SOFTWARE SWITCH RE- 

T AS PER SECTION 4.1 (USING LSI-ODT) BEFORE 
ON OF PROGRAM. AS DISCUSSED IN SECTION 

WO STARTING ADDRESSES: 


NORMAL START 


NORMAL START BUT THE OPPORTUNITY TO ‘’GOTO"’ 
A SELECTED TEST IS GIVEN TO THE USER. 


ETTINGS 


TCH REGISTER MAY BE ALTERED BY USING LSI- 

G ADDRESS 000176. AN EASIER WAY TO CHANGE 
TER IS THAT AFTER THE DIAGNOSTIC IS STARTED 
RUNNING THE USER MAY TYPE ‘CONTROL G'* < G> 
RIORITY ALLOWS (AWD A RESET INSTRUCTION 
UTED) THE PROGRAM WILL PRINT OUT: 


00000/=/ 


N HIT <CR> CARRIAGE RETURN OR TYPE (IN 
NGS. SWITCHES ARE: 


: HALT ON ERROR 
: LOOP ON TEST 
: INHIBIT ERROR PRINT-OUT. 
: ESCAPE TO NEXT TEST ON ERROR. 
: INHIBIT ITERATIONS 
: BELL ON ERROR 
: LOOP ON ERROR 
SET: CONFIDENCE; -PRINT TEST # AT 1ST END OF EACH TEST. 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 


RESTRICTIONS 


XCEPTION OF SW12 ALL SWITCH REGISTER 
MAC.SML"’ COMPATABLE. 


ORE THERE ARE TWO STARTING ADDRESSES: 
NORMAL OPERATION 


NORMAL OPERATION WITH OPTION TO SPECIFY 
STARTING TEST NUMBER. 


SEQ 0004 





OPERATING PROCEDURE 


PROGRAM SHOULD BE STARTED AS PER SECTION 4.2. ON INITIAL 
START PROGRAM WILL PRINT OUT: 


CWQAABO 11W03 SYSTEM TEST 

AND BEGIN EXECUTION (OR ASK FOR TEST NO. IF SA=210). 
PROGRAM AND/OR OPERATOR ACTION 
SWR SHOULD BE SET TO *'100000"' HALT ON ERROR. AFTER ERROR 
MODIFY SWR TO *'060000"’ LOOP ON TEST AND INHIBIT PRINTOUT 
AND START AT ADDRESS 210 SPECIFING FAILING TEST NUMBER. 
ERRORS 

CONTROLABLE ERRORS WILL PRINT: 

ERRPC ERROR PC (IN OCTAL) 

STSTNM TEST NUMBER (IN OCTAL) 

SPASS PASSES MADE (IN DECIMAL) 

SERTLL ERRORS MADE (IN DECIMAL) 


PROCESSOR REGISTERS ARE SAVED IN MEMORY LOCATIONS ON 
ERRORS. 


SAVRO 
SAVR1 
SAVR2 


SAVR3 
SAVR4 
SAVR5 


ADDITIONAL INFORMATION WILL BE PRINTED AS NEEDED. 


SEQ 0005 





aa 


RESTRICTIONS 
HARDWARE RESTRICTIONS 


SYSTEM MUST BE CONFIGURED *EXACTLY* AS OUTLINED FOR 
11WO3-AA SYSTEM. 


MISCELLANEOUS 
CONTROL *'G’’ < G> 


THIS WILL ENABLE USER TO CHANGE SWITCH REGISTER (PROVIDED 
PROGRAM IS RUNNING). 


CONTROL ‘'T’' < T> 


THIS WILL ENABLE USER TO ‘GOTO’ SELECTED TEST. (CPU MUST 
NOT BE DOING A RESET.) 


PASS COMPLETE 


THIS IS A “‘SYSMAC.SML*’ COMPATIBLE END PASS ROUTINE. AT 
PASS COMPLETE THE FOLLOWING WILL BE PRINTED: 


END PASS # 1 
END PASS # 2 


PASS COUNT IS IN DECIMAL. 
EXECUTION TIME 


WITH NO ERRORS AND SW11=0 PASS TIME IS <8 MINS. 
WITH NO ERRORS AND SW11=1 PASS TIME IS <2 MINS. 


SEQ 0006 





om 
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-ENABLE ABS,AMA 

-TITLE CWQAABO 11WO3 SYSTEM TEST 
s*COPYRIGHT (C) 1978 

:*DIGITAL EQUIPMENT CORP. 
eect MASS. 01754 


:+PROGRAR BY JOHN C. EGOLF 


‘ aTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
;*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


-* 
~SBTTL OPERATIONAL SWITCH SETTINGS 
-* 

SWITCH 


HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
SWITCH 12: ESCAPE TO NEXT TEST ON ERROR. 
INHIBIT ITERATIONS 
BELL ON ee 
a4 ON ERR 
8 CONFIDENCE: OT PRINT TEST # AT 1ST END OF EACH TEST 
* SBTTL BASIC DEFINITIONS 


WOON AUEWN OO OONAUE WH 


oe ae ot os ot eos os 


a hee OF THE STACK POINTER *** 1100 *** 


001100 STACK= 
-EQUIV EMT,ERROR 7;BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE 3 ;BASIC DEFINITION OF SCOPE CALL 


; *MISCELLANEOUS DEFINITIONS 
000011 HT= 11 ;;CODE FOR HORIZONTAL TAB 
;;CODE FOR LINE FEED 
;;CODE FOR CARRIAGE RETURN 
:;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 ::PROCESSOR STATUS WORD 


177774 :STACK LIMIT REGISTER 

177772 7 ;;PROGRAM INTERRUPT REQUEST REGISTER 
177570 > HARDWARE SWITCH REGISTER 

177570 177570 ; ;HARDWARE DISPLAY REGISTER 


om 


000000 


000007 


; *GENERAL PURPOSE REGISTER th gt ney: 
RO= 20 ERA 


R1= 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 
SP= 
PC= 


: ENERAL 
7; GENERAL 
37; GENERAL 
7; GENERAL 
7; GENERAL 
7; GENERAL 
3; GENERAL 


L REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 


3:STACK POINTER 


: PROGRAM 


COUNTER 
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;*PRIORITY LEVEL DEFINITIONS 

PRO= 0 ;;PRIORITY LEVEL 
PRi= ; PRIORITY LEVEL 
PR2= ; PRIORITY LEVEL 
PR3= ; PRIORITY LEVEL 
PR4= ;;PRIORITY LEVEL 
PR5= ;sPRIORITY LEVEL 
PR6= ::PRIORITY LEVEL 
000340 PR7= ;:PRIORITY LEVEL 


3*""SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 


000000 


NOUS WNM—O 


100000 


000001 
SWO9,SW9 
SW08 , SW8 
SWO7,SW7 
SW06, SW6 
SWOS,SW5 
SW04,SW4 
$WO3,SW3 
SWO2,SW2 
$WO01,SW1 
Sw00,SWO 


BIT DEFINITIONS (BITOO TO BIT15) 
100000 100000 


000001 


1 
BIT09,BIT9 





on 
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-EQUIV B1T08,B1T8 
-EQUIV BITO7,BIT7 
-EQUIV B1T06,BIT6 
-EQUIV B1ITOS.BITS 
~-EQUIV BIT04,BIT4 
-EQUIV BITO3,B1T3 
-EQUIV BITO2,BIT2 
-EQUIV B1T01,B1T1 
-EQUIV B1IT00,BITO 


s*BASIC “‘CPU'’ TRAP VECTOR ADDRESSES 

000004 ERRVEC= 4 3: TIME OUT AND OTHER ERRORS 
RESVEC= s RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC i:'T BIT 
TRIVEC= 3; TRACE TRAP 
BPTVEC= 7 ;BREAKPOINT TRAP (BPT) 
IOTVEC= 3; INPUT/OUTPUT TRAP (10T) **SCOPE** 
PWRVEC= 3;POWER FAIL 
EMTVEC= 30 s EMULATOR TRAP (EMT) **ERROR** 
TRAPVEC=34 ::°"TRAP’' TRAP 
TKVEC= 60 zz TTY KEYBOARD VECTOR 
TFVEC= 64 sz: TTY PRINTER VECTOR 

000240 PIRQVEC=240 3zPROGRAM INTERRUPT REQUEST VECTOR 
-SBTTL TRAP CATCHER 


= 
= 
Ww 


ee ed od ot od 


MOR 
Nm—"OOONOUS 


000000 


-=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A *'.+2,HALT" 


;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*LOCATION 5 Sane 0 TO CATCH IMPROPERLY LOADED VECTORS 


000174 
000174 000000 :;SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD 0 SOFTWARE SWITCH REGISTER 
“SBITL STARTING ADDRESS(ES) 
000200 000137 003734 sa ee @#START :; JUMP TO STARTING ADDRESS OF PROGRAM 
000210 000137 003730 a JMP SETTST :ASK FOR TEST NUMBER. 





aon 


CWQAABO 11WO3 SYSTEM TEST 
22-MAR-78 14:51 


CWQAAB.P11 


001100 


001174 


001100 
000000 
000 


000377 


MACY11 gotecy 


MON TAGS 
-SBTTL COMMON TAGS 


FRR AAA AAA AAT EEA AAA AEE EAE ATER AERA AEA EAREER AREER 


;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


; *USED 


SCMTAG: 


SPASS: 


-=1100 
- WORD 


STSTNM: . 
SERFLG: . 


SICNT: 


SLPADR: 
SLPERR: 
SERTTL: 
SITEMB: 
SERMAX: 
SERRPC: 
SGDADR: 
SBDADR: 
SGDDAT: 
SBDDAT: 


SAUTOB: . 
SINTAG: . 


K 
23-MAR-78 07:51 


ooooooo°o°o°o-o°o°o°o°o°ooo 


oo 
on 
—-£ 
nw 
wv 


> + thane 


<15 
<12> 


1 
PAGE 4 


> START OF 
3: CONTAINS 
3; CONTAINS 
7: CONTAINS 
7; CONTAINS 
7; CONTAINS 
7: CONTAINS 
7: CONTAINS 
7: CONTAINS 
3: CONTAINS 
>: CONTAINS 
3: CONTAINS 
>; CONTAINS 
3; CONTAINS 
>: CONTAINS 


SEQ 0010 


COMMON TAGS 

PASS COUNT 

THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD’ DATA 
ADDRESS OF ‘BAD DATA 
"GOOD" DATA 

*BAD' DATA 


7 ;RESERVED--NOT TO BE USED 


: AUTOMATIC MODE INDICATOR 
z: INTERRUPT MODE INDICATOR 


ADDRESS OF SWITCH REGISTER 

: ADDRESS OF DISPLAY REGISTER 

3: TTY KBD STATUS 

::TTY KBD BUFFER 

7: TTY PRINTER STATUS REG. ADDRESS 

:;TTY PRINTER BUFFER REG. ADDRESS 

:; CONTAINS NULL CHARACTER FOR FILLS 
:;CONTAINS # OF FILLER CHARACTERS i 
INSERT FILL CHARS. AFTER A “‘LINE F 
33""TERMINAL AVAILABLE"’ FLAG (BIT<07>¢ O=YES) 
:;USER DEFINED 

7;MAX. NUMBER OF ITERATIONS 

: ESCAPE ON ERROR ADDRESS 

::CODE FOR BELL 

3 ;QUESTION MARK 

Sey RETURN 

:;LINE FEED 


. 
IOI, oe = Ms ARDEA ER, | sare Bory POOL OLS 





on 


CWQAABO 11W03 
CWQAAB.P11 


001176 
001176 


001204 


001206 
001210 
001212 
001214 


001216 


001224 


001226 
001230 
001232 
001234 


001236 
001240 
001242 
001244 


001246 
001250 
001252 
001254 


001256 


001264 


SYSTEM TEST 
22-MAR-78 14:51 


001444 


0 
003720 


001502 
002576 
003666 
005720 


001535 
002664 
003652 
003720 


001574 
002733 
003666 
003720 


001626 
003021 
003652 
003720 


001653 
002664 
003652 
003720 


001703 


003720 


3 
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-SBTTL ERROR POINTER TABLE 


*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;*NOTE1: IF SITEMB 1S 0 THE ONLY PERTINENT DATA IS (SERRPC). 

; *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


:;POINTS TO THE ERROR MESSAGE 
:;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

;;POINTS TO THE DATA FORMAT 


;NO “‘BREPLY'’ FROM ROM ADDRESS. 

sERRPC TSTNO PASCNT ERRCNT ROM ADDRESS 
sSERRPC MSKTST S$PASS SERTTL SAVRO 
sOCTAL OCTAL DEC DEC OCTAL 


ROM DATA COMPARISON ERROR. 

sERRPC TSTNO PASCNT ERRCNT ROMADD WANTED FOUND 
sSERRPC MSKTST SPASS S$ERTTL SAVRO SAVR5 SAVR4 
sOCTAL OCTAL DEC DEC OCTAL OCTAL OCTAL 


3NO ‘‘BREPLY’’ FROM 600 HZ CLOCK. 

sERRPC TSTNO PASCNT ERRCNT CLKCSR 
sSERRPC MSKTST SPASS S$ERTTL SAVRO 

sOCTAL OCTAL DEC DEC OCTAL 


;CLOCK R/W BIT6 FAILED. 

sERRPC TSTNO PASCNT ERRCNT CLKCSR WANTED FOUND 
sSERRPC MSKTST SPASS SERTTL SAVRO SAVR5 SAVR4 
sOCTAL OCTAL DEC DEC OCTAL OCTAL OCTAL 


s;UNEXPECTED INTERUPT. 

ZERRPC  TSTNO PASCNT ERRCNT (SP)-TRAP PC 
sSERRPC MSKTST SPASS S$ERTTL SAVRO 

SOCTAL OCTAL DEC DEC OCTAL 


;NO INTERUPT FROM CLOCK. 

sERRPC TSTNO PASCNT ERRCNT CLKCSR 
sSERRPC MSKTST $PASS SERTTL SAVRO 

sOCTAL OCTAL DEC DEC OCTAL 


;CLOCK INTERUPTS NOT CONSISTANT. 

sERRPC TSTNO PASCNT ERRCNT CLKCSR 
sSERRPC MSKTST SPASS S$ERTTL SAVRO 

sOCTAL OCTAL DEC DEC OCTAL 





on 
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sERROR 10 
001266 001743 EM10 sDEVICE "‘A'' R/W FAILURE. 
001270 003212 7 ERRPC TSTNO PASCNT ERRCNT DEV.A WANTED 
001272 003666 sSERRPC MSKTST SPASS SERTTL SAVRO SAVRS5 
001274 003720 sOCTAL OCTAL DEC DEC OCTAL OCTAL 


sERROR 1 
001276 001773 3NO "’BREPLY' FROM DEVICE ‘A’. 
sERRPC TSTNO PASCNT ERRCNT DEV.A 
sSERRPC MSKTST SPASS S$ERTTL SAVRO 
001304 003720 sOCTAL OCTAL DEC DEC OCTAL 


001306 002030 3NO ‘’BREPLY’’ FROM DEVICE ‘B'. 
sERRPC TSTNO PASCNT ERRCNT DEV.B 
sSERRPC MSKTST SPASS S$ERTTL SAVRO 
001314 003720 sOCTAL OCTAL DEC DEC OCTAL 


3 
001316 002065 sDEVICE ‘B’’ R/W FAILURE. 
003300 sERRPC TSTNO PASCNT ERRCNT DEV.B WANTED 
003666 sSERRPC MSKTST S$PASS SERTTL SAVRO SAVRS 
001324 003720 sOCTAL OCTAL DEC DEC OCTAL OCTAL 


7 ERROR 
001326 002115 UNEXPECTED “‘BREPLY’’ FROM UNKNOWN DEVICE. 
001330 003366 sERRPC TSTNO PASCNT ERRCNT DEVICE 
001332 003652 sSERRPC MSKTST S$PASS $ERTTL SAVRO 
001334 003720 sOCTAL OCTAL DEC DEC OCTAL 


7 ERROR 
001335 002166 NO INTERUPT FROM DEVICE ‘B’. 
001340 003144 sERRPC TSTNO PASCNT ERRCNT DEV.B 
001342 003652 s;SERRPC MSKTST SPASS SERTTL SAVRO 
001344 003720 sOCTAL OCTAL DEC DEC OCTAL 


7 ERROR 
001346 002222 GENERAL ERROR! 
001350 003435 sERRPC TSTNO PASCNT ERRCNT 
001352 003706 sSERRPC = MSKTST $PASS SERTTL 
001354 003720 sOCTAL OCTAL DEC DEC 


;ERROR 
001356 002241 :DLV11 DATA ERROR. 
001360 003476 sERRPC TSTNO PASCNT ERRCNT DLV11 WANTED 
001362 003666 sSERRPC MSKTST SPASS SERTTL SAVRO SAVRS 
001364 003720 sOCTAL OCTAL DEC DEC OCTAL OCTAL 


0 
001366 002263 MEMORY ERROR. 
sERRPC TSTNO PASCNT ERRCNT MEMORY WANTED 
SERRPC MSKTST SPASS SERTTL SAVRO SAVRS 
001374 003720 sOCTAL OCTAL DEC DEC OCTAL OCTAL 





om 
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MEMSIZ: 100000 ; 16K 100000 


; 4K 020000 
;CLOCK CONTROL REGISTER 


CLKCSR: 177546 
: 10 


MSKTST: 
TSTFLG: 
XXSCOP: 


/NO *BREPLY*’ FROM ROM ADDRESS./ 

/ROM DATA COMPARISON ERROR./ 

/NO *‘BREPLY'' FROM 600 HZ CLOCK./ 

"CLOCK R/W OF BIT6 FAILED." 

/UNEXPECTED INTERUPT./ 

/NO INTERUPT FROM CLOCK 

/CLOCK INTERUPTS NOT COWS ISTANT. / 

"DEVICE ‘A’ R/W FAILURE." 

/NO *‘BREPLY’’ FROM DEVICE ‘A'./ 

/NO “‘BREPLY'’ FROM DEVICE ‘B'./ 

“DEVICE "B® R/W FAILURE." 

/UNEXPECTED ‘‘BREPLY’* FROM — DEVICE./ 

/NO INTERUPT FROM DEVICE ‘B'/ 

/GENERAL ERROR! / 

/DLV11 DATA ERROR./ 

/MEMORY ERROR./ 

<15><12>/INCORRECT MEMORY SIZE FOUND./ 
<15><12>/CHANGE LOCATION "MEMSIZ"' TO SPECIFIC/ 
<15><12>/SI1ZE IN YOUR CONF IGURATION./ 
<15><12>/"MEMSIZ" SHOULD BE 100000 FOR A 16K SYSTEM./<15><12><0> 


/ERRPC TSTNO PASCNT ERRCNT ROM ADDRESS/ 


aon 


TSTNO 
TSTNO 
TSTNO 
TSTNO 
TSTNO 
TSTNO 
TSTNO 
TSTNO 
TSTNO 
TSTNO 


/ERRPC TSTNO 


PASCNT 
PASCNT 
PASCNT 
PASCNT 
PASCNT 
PASCNT 
PASCNT 
PASCNT 
PASCNT 
PASCNT 
PASCNT 


ROMADD WANTED 
CLKCSR/ 

CLKCSR WANTED 
(SP)-TRAP PC/ 


WANTED 
WANTED 
DEVICE/ 


/ 
DLV11 WANTED 


FOUND/ 
FOUND/ 


FOUND / 
FOUND/ 


FOUND/ 
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003564 051105 050122 020103 gt a ~ASCIZ /ERRPC TSTNO PASCNT ERRCNT MEMORY WANTED FOUND/ 


003652 001116 001436 001100 DT1: -WORD SERRPC,MSKTST,SPASS,SERTTL,SAVRO,0 
001116 001436 001100 : -WORD SERRPC,MSKTST,SPASS,SERTTL,SAVRO,SAVR5S,SAVR4,0 
001116 001436 001100 : -WORD SERRPC,MSKTST,SPASS,SERTIL,O 


003720 oa 0,0,1,1,0,0,0,0 
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003730 005237 001440 SETTST: INC TSTFLG ; 
003734 START: 
~SBTTL INITIALIZE THE COMMON TAGS 
3;CLEAR THE COMMON TAGS (SCMTAG) AREA 
003734 012706 001100 0 #SCATAG,R6 7;FIRST LOCATION TO BE CLEARED 
003740 005026 (R6)+ :;CLEAR MEMORY LOCATION 
003742 022706 001140 #SWR,R6 ;; DONE? 
003746 001374 E -6 ;;LOOP BACK IF NO 
003750 012706 001100 MOV #STACK, SP :;SETUP THE STACK POINTER 
ageminae A FEW VECTORS 
003754 012737 011232 #SSCOPE ,a#IOTVEC te VECTOR FOR SCOPE ROUTINE 
#340, a#1OTVEC+2 ;:LEVEL 7 
#SERROR ,AMEMTVEC TERT. VECTOR FOR ERROR ROUTINE 
#340 ,Q#EMTVEC+2 ;;LEVEL 7 
#STRAP ,@#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
#340 ,a#TRAPVEC+2;LEVEL 7 
SENDCT,SEOPCT ;;SETUP END-OF-PROGRAM COUNTER 
STIMES :; INITIALIZE NUMBER OF ITERATIONS 
SESCAPE ;;CLEAR THE ESCAPE ON ERROR ADDRESS 
#1, SERMAX 7;ALLOW ONE ERROR PER TEST 
#.,SLPADR zs INITIALIZE THE LOOP ADDRESS FOR SCOPE 
004052 012737 004052 MOV #.,SLPERR ;;SETUP THE ERROR LOOP ADDRESS 
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
3;EQUAL TO A ‘'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 
004060 013746 000004 MOV @#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
004064 012737 004120 #64$,a#ERRVEC ;;SET UP ERROR VECTOR 
004072 012737 177570 #OSWR,SWR 3;SETUP FOR A HARDWARE SWICH REGISTER 
004100 012737 177570 #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
004106 022777 177777 175024 #-1,aSWR 7: TRY TO REFERENCE HARDWARE SWR 
004114 001012 66$ ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
7;AND THE HARDWARE SWR IS NOT = -1 
004116 000403 65$ ;;BRANCH IF NO TIMEOUT 
Atle 004126 64$: #65$, (SP) 37;SET UP FOR TRAP RETURN 
012737 000176 001140 65$: #SWREG, SUR ;;POINT TO SOFTWARE SWR 
012737 000174 001142 #DISPREG, DISPLAY 
004142 012637 000004 66$: (SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 


-SBTTL TYPE PROGRAM NAME 

TYPE THE on OF THE PROGRAM IF FIRST PASS 
004146 005227 177777 IN #-1 FIRST TIME? 
004152 001027 67$  TBRANCH IF NO 
004154 022737 011176 000042 #SENDAD ,a#42 33ACT-11? 
004162 001423 67$ ;;BRANCH IF YES 
004164 104401 004172 ,68$ 2: TYPE ASCIZ STRING 


004170 000420 67$ “GET OVER THE ASCIZ 
mae <CRLF><15><12>/CWQAABO 11WO3 SYSTEM TEST/<15><12><CRLF> 
012737 000006 000004 46.4 : 
175130 CLKPTY, aC KVEC : 
175124 #2, acLkPTY : 
175124 B.APTY, @B. AVEC ; 
aB. APTY 
175116 B.BPTY,aB.BVEC 
004300 005077 175114 aB.BPTY ; 
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004304 005037 000022 —_ = ZERO SCOPE PRIO. 
000060 #KBISR,a#60 :SET VECTOR 
000062 #200 ,a#62 SET PRIO 
174606 #100, a$TKS SET INTR ENABLE 
0 SET PSW TO 0 
001440 bs sFLAG SET? 
001440 TSTFLG :ZERO FLAG 
014733 : oXTSTN sTYPE “‘TEST NO: °' 
;GET NUMBER 
— ; 


“BR IF NO NUMBER INPUT 


x1 
015242 RO,LASTN VALID TEST? 
x1$ :BR IF NO 
001102 RO, STSTNM ;LOAD INITAL TEST NO. 


R RO sMAKE POWER OF 2. 
004404 016037 015114 001106 ial mancinane ag - 
004412 062737 000002 001106 #2,SLPADR :GET PAST SCOPE 
004420 013737 001106 001110 SLPADR,SLPERR- ; 
004426 000177 174454 @SLPADR ;GOTO TEST. 


FRAT AEE EERE AEE AAR ERE AEEREREEKEEEK 
s*TEST 1 ROM ‘‘BREPLY’’ TEST 
s*TEST TO REFERENCE ALL 256. ADDRESS 
3*O0F THE ROM ONLY MAKING SURE THAT 
:*THERE IS A ‘BREPLY'’ RESPONSE - NO DATA IS 
s*CHECKED IN THIS TEST. 
DRA AEE EEE AEE AEE REAR ARAEREEEERAEKEEEE 
004432 000004 TST1: SCOPE 
173000 #173000,R0 :SET INITAL START ADDRESS OF ROM. 
000400 256.,R1 ;SET NUMBER OF WORDS TO BE TESTED. 
000004 3SAVE LOC 4. 
000006 :SAVE LOC 6. 
004506 000004 7SET TIME-OUT TRAP VECTOR. 
000200 000006 ;LOAD PRIORITY = 4 
1$: ( ;REFERENCE ROM ADDRESS. 
700 IT AGAIN. 
000002 : ;UPDATE ADDRESS. 
R1 ;ALL DONE? 
7BR IF NO 
sCONTINUE TEST 
: 1 ;ROM DID NOT ISSUE ‘'BREPLY'’. 
004474 0 3SET RETURN ADDRESS 


; RETURN 
000006 : (SP)+,6 sRESTORE ADD 6. 
004522 012637 000004 (SP)+,4 sRESTORE ADD 4. 


PRR A AAR A RAAT A AAA AAA A ATER AAT T ATTA AAA RARER 
s*TEST 2 ROM WRITE TEST 

:*TEST THAT WRITING THE ROM 

:*PRODUCES A TIME-OUT TRAP. 
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004526 


004620 


004624 


004660 


004662 


004704 


000004 


012637 


000004 


001370 


000004 


012737 


173000 
000400 
000004 
000006 
004574 000004 
000200 000006 


004564 
000000 


000006 
000004 


173000 
000400 
013620 


000004 


001400 
004730 000004 
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ROM WRITE TEST 


MARARBAAAAAASBASARAAAAAALASAAAASASSALAAASESA SESSA SERA SESSA SE SSS SG 


a 
iéT2: 


#173000 ,RO ;SET ROM ADDRESS 
#256. ,R1 ;D0 ALL ADDRESS 
STORE 4 
STORE 6 
;SET TRAP VECTOR 


;PRIO. 
[WRITE ROM WITH ZERO. 


16 WRITE ROM AND NO TRAP. 
-(SP),-(SP) FAKE AN INTERUPT. 
R1 3256 DONE? 
3$ 7;BR IF YES 
#1$, (SP) SET RETURN 
; RETURN 
#0 :SET PTY TO 0 
(SP)+,(SP)+ :FAKE RTI 
(SP)+,6 RESTORE 6 
(SP)+,4 RESTORE 4 


FERRER AREER EERE EAE EEE AEE EEA EKEE 
TRTEST 3 ROM DATA TEST 
:*TEST TO READ AND COMPARE ALL 
:*256 ROM ADDRESS TO THE ROM DATA 
:*MAP IN MEMORY. ALL ADDRESSES ARE 
:*VERIFIED FOR GOOD DATA. 
SERA ARERR RAE REET REAR EAE 
1813: SCOPE 
e #173000,R0 :SET START OF ROM ADDRESS. 
#256. ,R1 :SET NUMBER OF WORDS TO CHECK. 
#ROMMAP ,R2 :GET SOFTWARE ADDRESS 
1$: 0 ;READ ROM. 
:READ SOFTWARE IMAGE 
:ARE THEY GOOD? 
:ROM DATA ERROR? 
2 [BAD DATA IN ROMS!! 
(RO)+, (R2)+ :POP POINTERS 
R1 TALL DONE? 
1$ :BR IF NOT DONE. 


FERRARA RAE RAE EERE REE EEA EAE EAE REE 


SeTEST 4 600 HZ ADDRESS TEST 
s*TEST TO VERIFY A + sgl RESPONSE 
;*FROM THE 600 HZ C 
:*IT IS ASSUMED THAT THE CLOCK 
:*I1S AT ADDRESS °'177546"'. 
PTTIITIITTTTITITTTITETTTTTITTITTIITTT TTT TTTT Li TLi iii iit ii iii 
TST4: 
SAVE ADDRESS 4. 
SAVE ADDRESS 6. 
SET INTERNAL ICOUNT TO 15. 
CLKCSR,RO GET CLOCK CSR 
#3$,4 SET TIME-OUT VECTOR. 


SEQ 0017 
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004712 


004744 


004750 


005100 


tLe 4 


012637 


000004 


104005 


000200 


004722 


000006 
000004 


000005 
0 


000100 


007640 
005042 


001160 


es 
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000006 


001162 


174374 
174370 


600 HZ ADDRESS TEST 


SET PRIO. 
; REFERENCE CLOCK CSR. 
:ICOUNT = 0? 
:BR IF NO. 
:CONT TEST 
3 > TIME-OUT ERROR. 
#2$, (SP) ;SET RETURN ADD. 
;RETURN. 
(SP)+,6 RESTORE 6 
(SP)+,4 sRESTORE 4 


FERRARA EEE EEE TERRE EEE REAR EERE REE EREEEE 


s*TEST 5 600 HZ “EVENT ENABLE" R/W TEST 


s*TEST THAT BIT6 OF 600HZ 

>*CLOCK IS R/W 

:*SET PSW TO "4" AND SET BIT6 

;*OF 600HZ CLOCK VERIFYING THAT NO 


:*INTERRUPT OCCURED AND THAT BIT6 
:*DID INPEED SET. THEN CLEAR BIT6 
:*AND VERIFY BIT6 IS CLEARED. 
s*VERIFY NO INTERUPT OCCURED. 
;*THEN CLEAR PS VERIFYING THAT 
z*THE INTERUPT PENDING OCCURES. 

* 


. 
FREER RARE ERE REET EERE EEE AEA 


TSTS: 


#5,STIMES ;;D0 5 ITERATIONS 
#200 sSET PRIO TO ‘'4" 
CLKCSR,RO SET CLOCK CSR 
@CLKVEC,-(SP)  ;SAVE CLKVEC 
@CLKPTY,-(SP)  ;SAVE CLKPTY 
#3$ ,ACLKVEC SET CLOCK VECTOR 
#200,aCLKPTY :SET CLOCK PRIORITY 
#15.,R1 SET ICOUNT 

SET EXPECTED 

sWRITE BIT6 

zREAD CSR 

; COMPARE 

:D1D BIT6 SET? 

;B1T6 NOT SET! 
14000. ,(PC)+ DELAY TIME 

; STORAGE 

DELAY 


CLEAR BIT6 
READ CSR 

CLEAR EXPECTED 
:1S R4=0? 

:BR IF OK! 
;REGISTER NOT=0! 

:1 COUNT=0? 

;BR IF NO 

;CONT TEST. 


MOV ;SAVE RO 
ERROR 5 UNEXPECTED INTERRUPT 
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005102 


005160 


005164 


005314 


013700 


106427 


000004 


001401 


001160 
005066 


005146 
000200 
000000 


174230 
174222 
000000 


174210 


000002 


000000 
001400 
000100 


000010 


000270 


MACY11 30A(1052) 
15 


174256 
174252 


174176 
174172 


174136 


STMPO,RO 
#2$, (SP) 


R5 

#5$ ,aCLKVEC 
#200, aCLKPTY 
#0 

R5 

a 

6 

6$ 
(SP)+,(SP)+ 


(SP)+,a@CLKPTY 
a 
# 


G 2 
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600 HZ “EVENT ENABLE*’ R/W TEST 


13 
SEQ 0019 


;RESTORE RO 
;SET RETURN ADDRESS 


;EXIT 


“RESTORE CLKPTY 
sRESTORE CLKVEC 


:SET PRIO TO LVL 0 


FERRARA AERA EERE TERE EEE EERE EERE REE REA EEE KEE 


ATEST 6 
3*TEST THAT THE 600HZ CLOCK 
:*CAN INTERRUPT AND THAT THE 


;* INTERRUPTS ARE WITHIN THE SAME 
200. INTERRUPTS WILL BE 


:*TIME SPAN. 
> *EXECUTED 


600HZ INTERRUPT TEST 


FRA EAA AEE EEA REA EE AEE REREREKEREERER 


TST6: 
aCLKVEC,-(SP) 
aCLKPTY,-(SP) 
#2$,aCLKVEC 
#200, aCLKPTY 
#200. ,R4 
#2,R5 
R1 
#0 
CLKCSR,RO 
“+ tehtaaaaatan 


SAVE CLKVEC 

SAVE CLKPTY 

;SET INTERRUPT VECTOR 
SET PRIO. 

SET ICOUNT 

:SET COUNT POSITION 
ZERO COUNT UP. 
;CLEAR PSW 

SAVE FOR PRINTOUT 


:SET EVENT ENABLE 
a TIME 


:NO INTERRUPT 

EXIT TEST 

;HOW MANY INTERRUPTS? 
:BR IF 2ND! 

;BR IF 1ST! 


;MUST BE 3RD OR MORE! 
GIVE TOLARENCE OF +10 
;GET DIFFERENCE 

sSSKIP IF POSITIVE 
MAKE POSITIVE 

GIVE +270 TOLARENCE 


; INTERRUPTS OUT OF TOLERANCE 
CONT TEST 

:SAVE COUNT 

ZERO COUNTER 

: COUNT =0? 

:BR IF YES 





nm 
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CWQAAB.P11 22-MAR-78 14:51 T6 600HZ INTERRUPT TEST SEQ 0020 


005316 000002 R sEXIT 

005320 000100 174052 5$: #BIT6,aCLKCSR ;CLEAR EVENT ENABLE 
005326 C (SP)+,(SP)+ POP INTR OFF STACK 
005330 174050 (SP)+,@CLKPTY  ;RESTORE CLKPTY 
005334 174042 (SP)+,@CLKVEC ;RESTORE CLKVEC. 
005340 106427 000000 #0 SET PRIO TO LEVEL 0 


pPRR ARATE ERR A AAA E TAREE REECE RETA E ERE E RRR Ree eee 
s*TEST 7 UNEXPECTED ‘‘BREPLY’’ TEST. 

3*TEST TO SCAN THROUGH ALL ADDRESS 

s*VERIFYING THAT ONLY EXPECTED DEVICES 

;*RETURN ‘‘BREPLY’’. THIS TEST CHECKS 

*ONLY THAT “UNEXPECTED *BREPLYS** AREN'T RECEIVED 

pauer THAT ALL DEVICE ISSUE ‘’BREPLY’’. 


etre ti siti titititititiiiiitititititisititiiiiiiii titi titi titty 
005344 000004 1817: 
000003 001162 #3,STIMES 3:00 3 ITERATIONS 
000004 sSAVE 4 
000006 sSAVE 6 
005406 000004 : SET TIME-OUT TRAP 


000006 : 
SET FIRST ADDRESS TO 0 
READ ADDRESS 
;POP ADDRESS 
1$ ; CONTINUE TEST 
: (SP)+,(SP)+ FAKE AN RTI 
001376 MEMS1Z,RO 716K ? 
+10 :BR IF MEMORY SIZE IS CORRECT 
16 : INCORRECT MEMORY SIZE FOUND 
005420 104401 002301 -EM21 REPORT CHANGE MSG. 
;LOC SAVRO HAS MEMORY FOUND. 
005424 012737 005462 000004 ; #6$,4 RESET TIME-OUT TRAP 


: (RO) 
014752 #BREPLY.TABLE.R1 ;SET EXPECTED DEVICES 
: (R1)+,RO sEXPECTED DEVICE? 
5$ :BR IF NO 
(R1)+,R0 POP MODULO OFFSET 
3$ CONT TEST 
(R1)+ ;POP PAST OFFSET 
(R1) ;END OF TABLE? 
4$ :BR IF NO 
14 agg ht etal FROM DEVICE. 
7$ SKIP FAKE R 
: (SP)+,(SP)+ sFAKE RTI 
000002 : #2,R0 :POP TO ye ADDRESS 
177700 cir rree ae zALL DONE? 


000006 (SP)+,6 sRESTOE 6 
005502 012637 000004 (SP)+,4 ;RESTORE 4 


ET ICES eter iri iri titiiiiiiiiiiiiititiiiitiiiititiit iti titi iit t 
:*TEST 10 “DEVICE ‘A**’ ADDRESS TEST 

;*TEST TO VERIFY A ‘'BREPLY’’ RESPONSE 

;*FROM "‘DEVICE'A’”’. 





om 
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005506 000004 
000004 


000260 


005546 


000006 
005570 012637 000004 


005574 000004 
001406 
000001 


000001 


005634 104010 


005636 000004 
001406 
000002 


005654 020504 
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000004 
000006 


“DEVICE ‘A'’’ ADDRESS TEST SEQ 0021 
s*IT IS ASSUMED THAT THE DEVICE 

3*1S AT ADDRESS °'172524' 

MYTITITTTCTITTITITITITITITTITITTiTiititiitiitiitiiitiTi tit titi 


18110: 


;SAVE ADDRESS 4. 

;SAVE ADDRESS 6. 

SET INTERNAL ICOUNT TO 15. 
GET DEVICE CSR. 

SET TIME-OUT VECTOR. 

SET PRIO. 

om <a CSR. 


:CONT TEST 
11 :TIME-OUT ERROR. 
#2$, (SP) >SET RETURN ADD. 
(SP)+,6 F 


(SP)+,4 RESTORE 4 


PEC tei titi i iii ii titi itiii iii titi iiiitiiiititiitiatii titi titi iit 
*TEST 11 R/W TEST OF BIT O IN DEVICE ‘A' 
3*R/W TEST OF BIT O IN DEVICE ‘A’. 
;*WRITE BIT O VERIFY ONLY BIT O IS SET. 
;*CLEAR BIT O VERIFY BIT O IS CLEARED. 
st 
Peete tii ii iii rit iii iti tii iitiititiiiiiiititiiiiiiiiiit itis iii 
TST11: 
DEV.A,RO 
#BITO,R5 


;LOAD DEVICE ‘A* CSR. 
3SET EXPECTED. 

sWRITE BITO 

;READ CSR 

;BIT OK? 


7BR IF OK 
REGISTER HAS WRONG DATA. 
CLEAR BITO 
READ REGISTER. 
#B1T0,R5 :ZERO EXPECTED 
R4 REGISTER OK? 
+4 :BR IF YES 
10 ;REGISTER NOT =0. 


Peet retiree tit ri itil i irri iri ii titi iit ii iii i titi iii iii titi iit 
SeTEST 12 R/W TEST OF BIT 1 IN DEVICE ‘A’ 

7*R/W TEST OF BIT 1 IN DEVICE ‘A*. 

s*WRITE BIT 1 VERIFY ONLY BIT 1 IS SET. 
:*CLEAR BIT 1 VERIFY BIT 1 IS CLEARED. 
+t 
MIITITITITITITITITITITITTTITTTTT TTT TTT Titi tiii iii 


TST12: 
;LOAD DEVICE ‘A* CSR. 
:SET EXPECTED. 
R5, (RO) sWRITE BIT1 
(RO), R4 READ CSR 
R5,R4 ;BIT OK? 


DEV.A,RO 
#B1IT1,R5 





on 
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005656 001401 


000002 


005676 104010 


005700 000004 
001406 
000004 


000004 


005740 104010 


005742 000004 
001406 
000010 


000010 


006002 104010 
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R/W TEST OF BIT 1 IN DEVICE ‘A’ SEQ 0022 


+4 7BR IF OK 

10 ;REGISTER HAS WRONG DATA. 
R5, (RO) ;CLEAR BIT1 

(RO) ,R4 ;READ REGISTER. 

#BIT1,R5 ;ZERO EXPECTED 

R4 sREGISTER OK? 

+4 :BR IF YES 
sREGISTER NOT =0. 


PETIT titer iii tit ii titi tit itititititicitivititiiiitiiitititiis! 
s*TEST 13 R/W TEST OF BIT 2 IN DEVICE ‘A’ 

3*R/W TEST OF BIT 2 IN DEVICE ‘A’. 

;*WRITE BIT 2 VERIFY ONLY BIT 2 IS SET. 

s*CLEAR BIT 2 VERIFY BIT 2 IS CLEARED. 


MITTIIITIIITI III TI LITT TITTI ITT Tit iii TiiitiititiiiilitiTti iti et 
TST13: 

;LOAD DEVICE ‘A* CSR. 

3SET EXPECTED. 

ap hy BIT2 


IF OK 
TREGISTER HAS WRONG DATA. 
CLEAR BIT2 
;READ REGISTER. 
;ZERO EXPECTED 
REGISTER OK? 


7BR IF YES 
REGISTER NOT =0. 


PES e Pitti tii rei i ri iriliiir irri titi ili tii iii iii iiiti iii iii iii 
s*TEST 14 R/wW TEST OF BIT 3 IN DEVICE ‘A' 

7*R/W TEST OF BIT 3 IN DEVICE ‘A’. 

s*WRITE BIT 3 VERIFY ONLY BIT 3 IS SET. 

;*CLEAR BIT 3 VERIFY BIT 3 IS CLEARED. 


i* 
tei titi i iter i titi iii titi titiititiitiiiititiiiiiiiiitititi dy 

TST14: 

;LOAD DEVICE ‘A* CSR. 

SET EXPECTED. 

WRITE BITS 

READ CSR 

3;BIT OK? 


3;BR IF OK 
sREGISTER HAS WRONG DATA. 
sCLEAR BIT3 
;READ REGISTER. 
#BIT3, R5 3ZERO EXPECTED 
ote OK? 
a* 


R IF YES 
TREGISTER NOT =0. 


PRCT IT ITIL iit ii ii ii iri titi rir iti iit iti tirititiritirititiiiii ys: 
s*TEST 15 R/W TEST OF BIT 4 IN DEVICE ‘A’ 
:*R/W TEST OF BIT 4 IN DEVICE ‘A’. 





om 
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000004 
001406 
000020 


000020 


006044 104010 


006046 000004 
001406 
000040 


000040 


006106 104010 


006110 000004 
001406 
000100 


006132 104010 
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R/W TEST OF BIT 4 IN DEVICE ‘A' 


s*WRITE BIT 4 VERIFY ONLY BIT 4 IS SET. 
:*CLEAR BIT 4 VERIFY BIT 4 IS CLEARED. 


-* 


FERRARA REAR EAA EEE AEE EERE A EEA EEA EERREE EEE 


TST15: 


;LOAD DEVICE ‘A’ CSR. 
SET EXPECTED. 
WRITE BIT4 


IF OK 
TREGISTER HAS WRONG DATA. 
CLEAR BIT4 
;READ REGISTER. 
#B1T4,RS ZERO EXPECTED 
R4 REGISTER OK? 


+4 :BR IF YES 
10 REGISTER NOT =0. 


STRATA EKER 


s*TEST 16 R/W TEST OF BIT 5 IN DEVICE °A' 
3*R/W TEST OF BIT 5 IN DEVICE ‘A’. 

s*WRITE BIT 5 VERIFY ONLY BIT 5 IS SET. 

s*CLEAR BIT 5 VERIFY BIT 5 IS CLEARED. 


FREER AEE EERE AEE EERE AEE AERA AERA EAE EREKKEKEEKEE 


TST16: 


LOAD DEVICE ‘A* CSR. 
SET EXPECTED. 

WRITE BITS 

sREAD CSR 

:BIT OK? 


BR IF OK 
REGISTER HAS WRONG DATA. 
CLEAR BITS 
READ REGISTER. 
#B81T5,R5 ZERO EXPECTED 
R4 REGISTER OK? 
+4 :BR IF YES 
10 REGISTER NOT =0. 


FPR AREA EAA AERA AERA AAA EAE AERA E ERE KERREKKEKEE 


s*TEST 17 R/wW TEST OF BIT 6 IN DEVICE ‘A' 
:*R/W TEST OF BIT 6 IN DEVICE ‘A’. 
;*WRITE BIT 6 VERIFY ONLY BIT 6 IS SET. 


Z*CLEAR BIT 6 VERIFY BIT 6 IS CLEARED. 
3t 
PLRAAARA RAR AAA AAA AA AAA ATA AAA ETAT TATA A TARTAR ARETE eee 


TST17: 


DEV.A,RO LOAD DEVICE "A CSR. 
#B1T6,R5 SET EXPECTED. 

R5, (RO) sWRITE BIT6 

(RO) ,R4 ; 

RS, YA 


IF OK 
io” SREGISTER HAS WRONG DATA. 


SEQ 0023 
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040510 
000100 


006150 104010 


006152 000004 
001406 
000200 


000200 


006212 104010 


006214 000004 
001406 
000400 


000400 


006254 104010 
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R/W TEST OF BIT 6 IN DEVICE ‘A’ 


R5, (RO) CLEAR BIT6 

(RO) ,R4 sREAD REGISTER. 

#B1T6,R5 sZERO EXPECTED 

R4 REGISTER OK? 

+4 7BR IF YES 
REGISTER NOT =0. 


PORTS T Titi t iti i iii ti it iii tit iiit iii iiiiii titi iitititiiitiisy 
:*TEST 20 R/W TEST OF BIT 7 IN DEVICE ‘A’ 

3*R/W TEST OF BIT 7 IN DEVICE ‘A’. 

;*WRITE BIT 7 VERIFY ONLY BIT 7 IS SET. 

*CLEAR BIT 7 VERIFY BIT 7 IS CLEARED. 


$s 


PERERA AAA AEE ERERAEEEREAEEEEEAEEEREEREKKKKE 


18120: 


;LOAD DEVICE ‘A* CSR. 
SET EXPECTED. 
;WRITE BIT? 


>BR IF OK 
REGISTER HAS WRONG DATA. 
CLEAR BIT7 
sREAD REGISTER. 
#B1T7,R5 sZERO EXPECTED 
R4 REGISTER OK? 
+4 :BR IF YES 
10 sREGISTER NOT =0. 


FRAT EAA EAE EEA EEE EAE REA AARAREREEREKEEREEEKEKE 


SATEST 21 R/W TEST OF BIT 8 IN DEVICE ‘A' 
:*R/W TEST OF BIT 8 IN DEVICE ‘A’. 


> *WRITE BIT 8 VERIFY ONLY BIT 8 IS SET. 

;*CLEAR BIT 8 VERIFY BIT 8 IS CLEARED. 

-* 

SERRA Re eee AAA AAA AAA AAA AA AA AAA AAA AERA e KERR 


TST21: 


LOAD DEVICE "A CSR. 
SET EXPECTED. 
sWRITE BITS 


IF OK 
TREGISTER HAS WRONG DATA. 
CLEAR BIT8 
;READ REGISTER. 
#B1T8,RS ZERO EXPECTED 
R4 REGISTER OK? 


+4 ;BR IF YES 
10 >REGISTER NOT =0. 


EPAPER SASASASESESSASE ASSES ASE ASA LALAS LASERS ESAS EASES EELS RASS SO 


:*TEST 22 R/W TEST OF BIT 9 IN DEVICE ‘A' 
3*R/W TEST OF BIT 9 IN DEVICE ‘A’. 
:*WRITE BIT 9 VERIFY ONLY BIT 9 IS SET. 


[*CLEAR BIT 9 VERIFY BIT 9 IS CLEARED. 


SEQ 0024 
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CWQAAB.P11 22-MAR-78 14:51 T22 R/W TEST OF BIT 9 IN DEVICE ‘A’ 


* 
ITTITITITIITI ITT IIT TIT TI TTL T TIT Ti iTiitii iti Titi iT ii ii i 
000004 TST22: 
001406 M ° ;LOAD DEVICE ‘A* CSR. 
SET EXPECTED. 
top hy BIT9 


:BR IF OK 
;REGISTER HAS WRONG DATA. 
sCLEAR BIT9 
;READ REGISTER. 
001000 ZERO EXPECTED 
R4 REGISTER OK? 


7BR IF YES 
104010 sREGISTER NOT =0. 


FFARR EEE RARER AER EEA EEA EEE EEE EERE EEE EKEEEEKEEKEE 
T*TEST 23 R/W TEST OF BIT 10 IN DEVICE 'A' 
:*R/W TEST OF BIT 10 IN DEVICE ‘A’. 
[*WRITE BIT 10 VERIFY ONLY BIT 10 IS SET. 
:*CLEAR BIT 10 VERIFY BIT 10 IS CLEARED. 
** 
MIISTIITITITITITITIIT TTI TTI TT TLLTTLTLT Tit LTT TLL TTT eee 
006320 000004 TST23: 
001406 DEV.A,RO ;LOAD DEVICE ‘A’ CSR. 
002000 #B1T10,R5 [SET EXPECTED. 
:WRITE B1T10 


; F OK 
:REGISTER HAS WRONG DATA. 
CLEAR B1T10 
READ REGISTER. 
002000 #81T10,R5 ZERO EXPECTED 
R4 REGISTER OK? 
+4 :BR IF YES 
006360 104010 10 REGISTER NOT =0. 


ORCI IS Iii irri titi iit iti titi titiiiiitiiiiiiitiiiiiiiiiiiiis! 
s*TEST 24 R/W TEST OF BIT 11 IN DEVICE ‘A’ 

:*R/W TEST OF BIT 11 IN DEVICE ‘A’. 

s*WRITE BIT 11 VERIFY ONLY BIT 11 IS SET. 

;*CLEAR BIT 11 VERIFY BIT 11 IS CLEARED. 


* 
MITTITITITIITTITTITTTI TILT TL ITLL TTT LiL ii Titi Tit ie 
006362 000004 TST24: 
001406 0 DEV.A,RO ;LOAD DEVICE ‘A* CSR. 
004000 pitt R5 SET EXPECTED. 
0) sWRITE B1T11 
sREAD CSR 
:BIT OK? 


:BR IF OK 
ire HAS WRONG DATA. 
‘ :CLEAR BIT11 

006410 011004 (RO) ,R4 ;READ REGISTER. 


SEQ 0025 
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006412 042705 004000 
006416 005704 
001401 


006420 
006422 104010 


000004 
001406 
010000 


010000 


006464 104010 


006466 000004 
001406 
020000 


020000 


006526 104010 
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R/W TEST OF BIT 11 IN DEVICE *A' 
BIC #B1T11,R5 
TST R4 


BEQ +4 
ERROR 10 


sZERO EXPECTED 
sREGISTER OK? 


7BR IF YES 
REGISTER NOT =0. 


FF RARER AAA ATER AERA AERA EAE REAR AEREREREARKAAREAREAEE 


s*TEST 25 R/W TEST OF BIT 12 IN DEVICE ‘A’ 
z*R/W TEST OF BIT 12 IN DEVICE ‘A’. 
:*WRITE BIT 12 VERIFY ONLY BIT 12 IS SET. 


; *CLEAR BIT 12 VERIFY BIT 12 IS CLEARED. 


FERRARA AAA REAR AAR ATE AAA AAA AEA EAA AREER RERREAEKRREKEE 


18125: 


DEV.A,RO LOAD DEVICE ‘A* CSR. 
#B1T12,R5 SET EXPECTED. 
ty BIT12 


:BR IF OK 
:REGISTER HAS WRONG DATA. 
CLEAR BIT12 

;READ REGISTER. 

ZERO EXPECTED 

REGISTER OK? 

+4 :BR IF YES 

10 sREGISTER NOT =0. 


MARRS ALAALARAALELASASALASASAARSA SSA LASLSA LEER AER RSE SRR E SAREE SS 


#B1T12,R5 
R4 


s*TEST 26 R/wW_TEST OF BIT 13 IN DEVICE ‘A’ 
:*R/W TEST OF BIT 13 IN DEVICE ‘A’. 
:*WRITE BIT 13 VERIFY ONLY BIT 13 IS SET. 


*CLEAR BIT 13 VERIFY BIT 13 IS CLEARED. 
-% 
PLRR RRR e RRA AAA AAA RAAT AAA TERRA ARERR RRA AAA AAA AAA 


TST26: 


DEV.A,RO ;LOAD DEVICE ‘A* CSR. 
#BIT13,R5 SET EXPECTED. 
:WRITE BIT13 


:BR IF OK 

;REGISTER HAS WRONG DATA. 
CLEAR BIT13 

;READ REGISTER. 

:ZERO EXPECTED 

REGISTER OK? 

+4 :BR IF YES 

10 REGISTER NOT =0. 


#B1T13,R5 
R4 


Pete PPP P RRR SARA RRR RELA LARA SALAS A ALAS ASLE ASAE SESE ESAS ARAL SEAS DG 
T*TEST 27 R/wW TEST OF BIT 14 IN DEVICE 'A' 

:*R/W TEST OF BIT 14 IN DEVICE ‘A’. 

S*WRITE BIT 14 VERIFY ONLY BIT 14 IS SET. 

Z*CLEAR BIT 14 VERIFY BIT 14 IS CLEARED. 

** 

MTITITITITITIIILITITILI LILI iiiiii ei 


SEQ 0026 
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TST27: a 
001406 DEV.A,RO ;LOAD DEVICE ‘A* CSR. 
#BIT14,R5 SET EXPECTED. 
sWRITE BIT14 


:BR IF OK 
:REGISTER HAS WRONG DATA. 
CLEAR BIT14 
;READ REGISTER. 
040000 wBiTi4, oR5 ZERO EXPECTED 


REGISTER OK? 
.+4 :BR IF YES 
006570 104010 10 REGISTER NOT =0. 


PORT eT Titi i titi i titi ti tii iti tiiiititiiiitiiiitititiitititiiii tity 
s*TEST 30 R/W TEST OF BIT 15 IN DEVICE ‘A’ 

3*R/W TEST OF BIT 15 IN DEVICE ‘A’. 

s*WRITE BIT 15 VERIFY ONLY BIT 15 IS SET. 

:*CLEAR BIT 15 VERIFY BIT 15 IS CLEARED. 


MITT ITITTITITI IIT LITT T ITT TI TT Titi TiTiTiiiT iii tii i iiii TTT iii 
006572 000004 TST30: 
001406 DEV.A,RO LOAD DEVICE ‘A* CSR. 
100000 #BIT15,R5 SET EXPECTED. 
R5, (RO) a BIT15 
(RO) ,R4 
R5,R4 
+4 IF OK 
10 TREGISTER HAS WRONG DATA. 
R5, (RO) ;CLEAR BIT15 
(RO) ,R4 ;READ REGISTER. 
100000 #BIT15,R5 ZERO EXPECTED 
R4 REGISTER OK? 
+4 7BR IF YES 
006632 104010 REGISTER NOT =0. 


SSSsSsosaseoees 
WOONAULSWH—OVOeanN 


RCI iii iri siti titi tii littl ititiiiiiiitiiiiiiiiiitiiiiititits! 
s*TEST 31 BINARY COUNT TEST 

;*TEST TO WRITE A BINARY COUNT PATTERN 

; * (00000-17777) THRU DEVICE ‘A' REGISTER 


F wbinedidnebineeibbnianitininian sueenaeibiaiiimaaiinnanaiaien 
006634 000004 $131: 
000003 001162 #3,STIMES 3:00 3 ITERATIONS 
001406 GET DEVICE ‘A CSR. 
R5 ZERO EXPECTED 
1$: ;LOAD DATA 
;READ DATA. 
7 WAS ~s GOOD? 
7BR ES 


Y 
a eeciSTER DATA ERROR. 
;UPADE DATA 

006666 001371 :BR IF NOT DONE 
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BINARY COUNT TEST 


POET eS ISS i iii i rir irri iii iit iri iii ti titi iti tii titi s) 
s*TEST 32 1°S AND 0°S TEST 
;*TEST TO WRITE ALTERNATE 1°S AND 0'S 


3*(125252 AND 052525) INTO DEVICE ‘A’. 
* 


STR RE ER EERE AEE E EEE E REE E EEE E EEA ERERKE KEKE EREEEEEEE 


006670 000004 TST32: 


000012 001162 
001406 


006730 100370 


#10. ,STIMES 3:00 10. ITERATIONS 
DEV.A,RO GET DEVICE ‘A‘ CSR 
R3 ;SET TO DO 128. TIMES 
#125252,R5 LOAD DATA 

(RO) WRITE DATA 
READ REGISTER 
DATA OK? 
:BR IF OK? 
REGISTER R/W ERROR 
CHANGE DATA 
;DONE 128. TIMES? 
7BR IF NO. 


PEST esi ti tii iit i iit ititiiiiiiititititititititititiiiititititiii ty: 
s*TEST 33 DEVICE ‘A’ BYTE OPERATIONS 

s*TEST OF DEVICE ‘'A' BYTE OPERATIONS 

;*SET LOW BYTE OF DEVICE ‘A’ TO 0 AND 

;*SET HIGH BYTE OF DEVICE ‘A* TO 3 THEN 

:*DO A 'INCB’ ON LOW BYTE CHECK RESULTS 

;*DO A ‘INCB* ON HIBH BYTE CHECK RESULTS 

:*CONTINUE TILL LOW BYTE GOES TO ZERO 

EST IITICT ITIL IT ICIT IIIT LT TTT ITT iT iti i titi i titi titi titi tit iit| 


006732 000004 TST33: 


001406 
001400 


000003 


00116C 
001161 
001160 


007026 111104 


DEV.A,RO LOAD DEVICE ‘A* CSR. 
#3*400, (RO) ;PLACE 3 IN HIGH BYTE 

R2 ;ZERO LOW BYTE IMAGE 
#3,R3 ;SET HIGH BYTE IMAGE TO 3. 
RO,R1 GET CSR 

R1 MAKE EQUAL TO HIGH BYTE. 
aie at LOW BYTE 


EAD IT 
4~ py LOW BYTE IMAGE 
OD DATA 


(RO) 
(RO) ,R4 
R2 
R2,R5 
R5,R4 
+4 IF 
10 TREGISTER ERROR 
;READ WORD 


(RO) ,R4 
R2,$TMPO 
R3,S$TMPO+1 


GET LOW BYTE 
:GET HIGH BYTE 
GOOD DATA 
:STILL OK? 


; COMPARISON ERROR 
:IF LOW BYTE =0 THEN DONE 
:BR_1F END OF TEST 
sALTER HIGH BYTE 
(R1),R4 sREAD IT 


SEQ 0028 
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007030 105203 


007042 000745 
007044 000240 


007046 000004 

007050 012737 000005 
007056 013700 001406 
007062 012710 177777 


007072 052777 000100 


007102 001401 
007104 104010 


> 
WWAWWAWWWIR ROMP M NPN NIN SS 2 2 SO OS SS SCD 
AUSWN $C OONAUVLWN—OOOBNAUSWNR— @ 


MACY11 ene” 
133 


001162 


172044 


23: 


Dd 
eaten ta -78 07:51 


3 
PAGE 23 
VICE "A' BYTE OPERATIONS 


SEQ 0029 


ALTER HIGH BYTE IMAGE 
;LOAD GOOD DATA 

sDATA OK? 

7BR IF YES. 

REGISTER ERROR 

CONT TEST 


FERRARA EEE EERE EAA EERE EEE EEE EEE EERE EAA AEAEEREEEEKEREKKEEE 


SRTEST 34 


:*TEST THAT ALL BITS IN DEVICE 


BUS INITIALIZE TEST FOR DEVICE ‘A' 


;*REGISTER CAN BE CLEARED BY “‘INIT’’ (RESET INSTR). 
“@ 


° 
SPREE RARER EEE EEE EEE RETAKE EEREKEKKEEE 


S134: 


SCOPE 


#5, STIMES 
DEV.A,RO 

#-1, (RO) 

R5 


#100, aSTKS 
(RO) .R4 
+4 

10 


3:00 * — 
GET C 


7 SET ALL BITS 

SET EXPECTED TO ALL ZEROS 
ISSUE INIT 

[SET INTR ENABLE 

READ REGISTER 

7BR IF ALL ZEROS 

REGISTER NOT ALL ZEROS 


oar 


& 3 
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3 FERRARA AREER EAA ERE EERE ERE EKER EERE EEREE 
TeTEST 35 “DEVICE 'B''’ ADDRESS TEST (SEL 0) 
:*TEST TO VERIFY A "'BREPLY” RESPONSE 
:*FROM "DEVICE'B'’’ (SEL 0). 
:*1T IS ASSUMED THAT THE DEVICE 
:*IS AT ADDRESS ''165250" (SEL 0). 
FREAK ERKEEKEKKES 
007106 000004 18135: 
000004 4,-(SP) ;SAVE ADDRESS 4. 
SAVE ADDRESS 6. 
:SET INTERNAL ICOUNT TO 15. 
:GET DEVICE CSR. 
000004 3$,4 :SET TIME-OUT VECTOR. 
000200 000006 SET PRIO. 
;REFERENCE DEVICE CSR. 
ZICOUNT = C? 
BR IF NO. 
ZCONT TEST 
12 :TIME-OUT ERROR. 
007146 #2$, (SP) :SET RETURN ADD. 


000006 : (SP)+,6 H 
007170 012637 000004 (SP)+,4 RESTORE 4 


PRC i citi iti titi iii tiie i titi iii t ir itii iii tiiii titi iii iii tT 
s*TEST 36 R/W TEST OF BIT 6 IN DEVICE "B’ (SEL 0) 

:*TEST THAT BIT 6 IN DEVICE ‘B’ (SEL 0) 

:e1S R/W 

:*SET BIT 6 VERIFY IT IS SET. 

;*CLEAR BIT 6 VERIFY IT IS CLEAR. 


- 
MIITITITITITTTIITTTTLITTLLLT TTL LT TTT Li TTL tiie 
007174 000004 TST36: 
000200 
001410 e ;LOAD CSR INTO RO 
000100 7SET BIT 6 INTO R5 
WRITE BIT 
oy REGISTER 


:BR IF OK. 
REGISTER R/W ERROR 
CLEAR BIT 6 
;READ DEVICE 
000100 a eees EXPECTED 
R4 eg: jee Pgs 
007240 104013 ;REGISTER ERROR 


PRCT IT Tit iii i titi titi iii tititiisi iii iitititi iii ii titi titi tit iit | 
s*TEST 37 R/wW TEST OF BIT 7 IN DEVICE ‘B' (SEL 0) 

;*TEST THAT BIT 7 IN DEVICE "B* (SEL 0) 

*IS R/W. 

:*SET BIT 7 VERIFY IT IS SET. 

*CLEAR BIT 7 VERIFY IT IS CLEAR. 


1 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
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5 GE 25 
R/W TEST OF BIT 7 IN DE 


VICE "B’ (SEL 0) SEQ 0031 


** 
UTTITTITI IIIT ITT ITT TIT Tt Titi ti titi itiitii iti iii iii titi titi it 
007242 000004 TST37:. 
000200 
001410 . ;LOAD CSR _ INTO RO 
000200 :SET BIT 7 INTO R5 
WRITE BIT 
:READ REGISTER 


:BR IF OK. 
REGISTER R/W ERROR 
CLEAR BIT 7 
READ DEVICE 
000200 CLEAR EXPECTED 
Aw tg ie Fi 


:BR IF 
007306 104013 REGISTER ERROR 


eect ere r iri irr ri titi ii rit iii titi ti iii tii ii iii iiiia ii iii iis! 
TRTEST 40 DEVICE 'B' INTERRUPT TEST (SEL 0) 

s*TEST OF DEVICE ‘'B* INTERRUPTS (SEL 0) 

:*SET BIT6 VERIFY NO INTERRUPT 

:*CLEAR BIT6; SET BIT? -VERIFY NO INTERRUPT 

;*NOW SET BIT6 AGAIN ~EXPECT INTERUPT AT 

7 *VECTOR °'340". 
MIITITITITITITIIIT IIIT ITLL ITLL TLTLLLiT Titi iret 


007310 000004 TST40: 


12 
12 
12 
12 
12 
12 
12 
12 
12 


On 


000000 
172070 
172066 
007442 
000200 


001410 
000100 


000100 
000200 


007410 
000100 


007350 


#0 

@B .AVEC,-(SP) 
@B.APTY,-(SP) 
#5$,aB.AVEC 
“+ ([aeieatmaaiia 


DEV.B,RO 
#B1T6, (RO) 


#B1T6, (RO) 
#B1T7, (RO) 


#2$,aB.AVEC 
#B1T6, (RO) 


15 
4$ 
(RO) 
R3 
$ 
#1$, (SP) 
(SP)+,(SP)+ 
(RO) 


(SP)+,@B.APTY 
| ee aaaiatats 


SAVE DVB VECTOR 
SAVE DVB PRIO 
;LOAD VECTOR 
;LOAD PRIO 


SET EVENT ENABLE 
WASTE TIME 
CLEAR IT 

;SET OTHER INTR 
WASTE TIME 

SET GOOD VECTOR 
SET IE 

WASTE TIME 

:NO INTERRUPT 
CONT TEST 


ZERO REGISTER 
UPDATE ICOUNT 


; DONE? 
SET RETURN 
XIT 


sEXI 

:POP PC+PSW 
;DSABLE DEVICE 
RESTORE PTY 
;RESTORE VEC 
CONT TEST 
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007442 010002 
007444 011600 
007446 104005 
007450 010200 


007452 106427 000000 


007456 000004 


000004 


000200 


007522 


000006 


007544 012637 000004 


007550 000004 
000200 
001410 
000002 


000100 


000100 


007616 001401 


MACY11 30A(1052) 
T40 


000004 
000006 


3 
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DEVICE "B* INTERRUPT TEST (SEL 0) 


58: ;SAVE RO 

;SAVE PC. 

SUNEXPECTED INTERUPT 
;RESTORE RO 

;ZERO PTY 


SEQ 0032 


6$: MTPS 


PRC titi t iret iii iit i iii titi iii t titi tii titi ii ii iti iti itt itt) 
TtTEST 41 “DEVICE ‘*B'’’ ADDRESS TEST (SEL 2) 
;*TEST TO VERIFY A ‘’BREPLY’’ RESPONSE 
:*FROM "DEVICE'B'’’ (SEL 2). 
;*IT IS ASSUMED THAT THE DEVICE 
3*IS AT ADDRESS °'165252"" (SEL 2). 
PEC S Seti Sei titi itis litte i tit iit iiiitiiiitiiiii iit is iti ti iit) 
TST41: 

SAVE ADDRESS 4. 

SAVE ADDRESS 6. 

SET INTERNAL ICOUNT TO 15. 

GET DEVICE CSR. 

MAKE IT SEL 2 

fe a VECTOR. 
REFERENCE DEVICE CSR. 

; 1COUNT = 0? 
BR IF NO. 
:CONT TEST 

12 ;TIME-OUT ERROR. 
#2$, (SP) :SET RETURN ADD. 
(SP)+,6 


(SP)+,4 RESTORE 4 


OES e SIO tri t i r titer irri iii e tri i tii ii ii titi iit i titi iti titi tii t 
i*TEST 42 R/W TEST OF BIT 6 IN DEVICE ‘B' (SEL 2) 

ti i THAT BIT 6 IN DEVICE 'B’ (SEL 2) 

+ 

7*SET ali 6 VERIFY IT IS SET. 

s@CLEAR BIT 6 VERIFY IT IS CLEAR. 


F  ictiiseseteietabcecatndinidaieapeiakitalineaasadataneinadabiiiuintiniiie 
TST42: 

;LOAD i. a" RO 

MAKE IT SEL 2 

7SET BIT INTO R5 


WRITE BIT 
:READ REGISTER 


:BR IF OK. 
REGISTER R/W ERROR 
:CLEAR BIT 6 
+ READ DEVICE 


#B1T6,R5 
R4 
:BR IF =0! 





On 
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007620 104013 
007622 106427 000000 


007626 000004 
000200 
001410 
000002 
000200 


000200 


007700 106427 000000 


007704 000004 
000000 
171500 
171476 
010042 
000200 


001410 
000002 
000100 


000100 
000200 


010010 
000100 
010002 000240 


Se 2 
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171466 
171462 


171420 


R/W TEST OF BIT 6 IN DEVICE ‘B’ (SEL 2) 


ERROR 13 REGISTER ERROR 
MTPS #0 ;SET PTY TO 0 


FERRARA REA EAEEAEER EE EEEEAEEE TE AEEEAE ER AAERAAEAE ERE KES 


STES ST 43 R/W TEST OF BIT 7 IN DEVICE ‘B’ (SEL 2) 
;*TEST THAT BIT 7 IN DEVICE ‘B* (SEL 2) 


IS R/W. 
:*SET BIT 7 VERIFY IT IS SET. 
*CLEAR BIT 7 VERIFY IT IS CLEAR. 


SRA REE REE E EE R EERE R EE E TE EEEEAAE EE EAEAAE EEE REAREEEAKEEREREKEEEE 


TST43: 


;LOAD CSR INTO RO 
sMAKE IT SEL 2 
SET BIT 7 INTO R5 
WRITE BIT 

ary REGISTER 


:BR IF OK. 

REGISTER R/W ERROR 
CLEAR BIT 7 

READ DEVICE 

;CLEAR EXPECTED 
:REGISTER =0? 

:BR IF =0! 
REGISTER ERROR 
;SET PTY TO 0 


PRCT eT isi t titi i tit ii titi titi ii iit itisiitiati titi it iit iii titi it) 
s*TEST 44 DEVICE 'B' INTERRUPT TEST (SEL 2) 

s*TEST OF DEVICE ‘'B’ INTERRUPTS (SEL 2) 

;*SET BIT6 VERIFY NO INTERRUPT 

*CLEAR BIT6; SET BIT? -VERIFY NO INTERRUPT 

:*NOW SET BIT6 AGAIN -EXPECT INTERUPT AT 

s*VECTOR °'344". 


-* 


SFR AREER ERE EERE REA ERATE RARER 


TST44: 


#0 
@B.BVEC,-(SP) 
@B .BPTY,-(SP) 
#5$,aB .BVEC 


#200.aB.BPTY 
[MAKE IT SEL 2 


R 

DEV.B,RO 

#2,R0 

#B1T6, (RO) SET EVENT ENABLE 
WASTE TIME 


#B1T6, (RO) CLEAR IT 

#B1T7, (RO) 3ST “or INTR 
WASTE TIME 

#2$,9B.BVEC SET GOOD VECTOR 

#B1T6, (RO) ;SET IE 


WASTE TIME 


SAVE DVB VECTOR 
SAVE DVB PRIO 
;LOAD VECTOR 
LOAD PRIO 


SEQ 0033 
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1361 010004 104015 


1366 010016 012716 007750 


1370 010030 012677 171364 
1371 010034 012677 171356 


1377 010052 106427 000000 


1387 010056 000004 

1388 010060 106427 000000 
1389 010064 017746 171312 
1390 010070 Q17746 171310 
1391 010074 013700 001410 
1392 010100 062700 000002 


0 
1394 010106 012777 010150 
1395 010114 012777 000200 


1397 010124 052710 000002 


1400 010134 062737 000001 


1406 010154 012716 010122 


0 
1410 010166 012677 171212 
1411 010172 012677 171204 
1412 010176 106427 000000 


I 
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171266 
171262 


010132 


PAGE 28 
DEVICE "B* INTERRUPT TEST (SEL 2) 


ERROR 15 ;NO INTERRUPT 
BR 4$ CONT TEST 

2$: CLR (RO) :ZERO REGISTER 
INCB R3 UPDATE ICOUNT 
BMI 3$ ; DONE? 
MOV #1$, (SP) SET RETURN 
RTI sEXIT 

3$ CMP (SP)+,(SP)+ POP PC+PSW 

4$ CLR (RO) :DSABLE DEVICE 


MOV (SP)+,aB.BPTY :RESTORE PTY 
MOV ene RESTORE VEC 


BR 6 CONT TEST 
5$: «MOV RO,R2 zSAVE RO 
MOV (SP) ,RO :SAVE PC. 
ERROR 5 sUNEXPECTED INTERUPT 
MOV R2,R0 sRESTORE RO 
6$: MTPS #0 ZERO PTY 


OES e SIT c iter irri titi iri iti tii iii iii i tii rii iii iiii iis) 
s*TEST 45 TEST OF ‘EVENT’ AT DEVICE ‘B' 
:*TEST THAT SETTING BIT1 OF DEVICE ‘B* (SEL 2) 
: *CAUSES AN ‘EVENT’ VECTORING TO ADDRESS 100. 


MTPS #0 ZERO PSW 
MOV @CLKVEC,-(SP)  ;SAVE VEC 
MOV @CLKPTY,-(SP)  ;SAVE PTY 


MOV DEV.B,RO sGET CSR 
ADD #2,R0 sMAKE IT SEL 2 
CLR R3 : ICOUNTER=0 
MOV #2$,aCLKVEC ;SET VECTOR 
MOV #200,aCLKPTY ;SET PRIO 

1$: CLR (RO) ;ZERO REGISTER 
BIS #B1T1, (RO) ;SET EVENT 
CLR (PC)+ sSTALL FOR TIME. 

64$: 0 
ADD #1,64$ s INC TIMER 
BNE 76 s TIMER DONE? 
ERROR 15 3;NO INTERRUPT 
BR 4$ ; CONT 

2$: INCB R3 ; ICOUNT=ICOUT+1 
BMI 3$ :BR IF DONE 
MOV #1$, (SP) SET RIN 
RTI sEXIT 

3$: CMP (SP)+,(SP)+ sPOP PC+PSW 

4$: CLR (RO) ;DSABLE DEVICE 


MOV (SP)+,@CLKPTY  ;RESTORE PTY 
MOV (SP)+,@CLKVEC  ;RESTORE VEC 
MTPS #0 :PTY 0 


ESSA S SSSR RRR SAARR ARAL ARE RASA ALARA ASA SASSER ERASERS SRS R ARAL L ES DS 


s*TEST 46 DLV11 CHARACTER TEST 


SEQ 0034 
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010202 


010442 


000004 


022704 


000002 
175610 
000002 


000002 
000002 
000004 
000000 
000001 


000006 


000000 
000001 


000002 


000004 


000015 
000004 


000012 
000005 
000040 
000176 
000110 
000004 


000015 
000004 


000012 
000176 


MACY11 


001162 


000000 


000000 


000006 


000006 


000006 


000006 


J 3 
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146 DLV11 CHARACTER TEST SEQ 0035 


s*TEST TO OUTPUT CHARACTERS ON THE DLV11 

:*NOT BEING USED AS THE CONSOLE INTERFACE. 
;*PROGRAM WILL DO 2 FULL BINARY COUNT PATTERNS 
: *AND THEN A SLIDE ASCII PATTERN FOR 5 ROWS. 


eT S iTS titi i rit iri rir iri iit iii iti titi titi iii iii 
18146: 
#2,STIMES 3;00 2 ITERATIONS 
#175610,R0 SET DEVICE ADDRESS 
1 SET BINARY COUNTER 


“CLEAR COUNTER 
SCLR RX DONE 


sPRINTER READY? 
;BR IF YES 
sWASTE TIME 
;DELAY COUNTER+1 
;DELAY DONE? NO! 
6 :TPS BIT7 <>1 (NOT READY> 
R5,6(RO) ;LOAD DATA CHAR. 
R3 CLEAR POINTER 
(RO) ;RECEIVER READY (DONE)? 
7BR IF YES 
sWASTE TIME. 


“DELAY DONE? NO! 
TRECEIVER NOT DONE. 
DATA 


3 IF YES 
[DATA COMPARE ERROR. 
NEXT CHAR 


. 
. 
. 
. 
° 
_ 
. 
’ 
. 
’ 
. 
. 
. 
. 
. 
6 
. 
. 
. 
. 
. 
© 


= 
#15 -6(RO) 
4( RO) 
ine. 6(RO) 
#5..R5 
#40, *R3 
#176,R3 
2$ 
#72.,R1 
R3,R4 

4 (RO) 
#15,6(RO) 
4 (RO) 


74 
#12,6(RO) 
#176,R4 





kK 3 
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001002 - +6 
000040 #40,R4 
000004 4(RO) 


74 
000006 R4,6(RO) 
R4 


000004 TP READY? 

:BR IF NO 
000006 sXMIT A ZERO. 
000004 ;REA 


000006 
000004 
:BR IF NO 


-72 3 
010540 005760 000002 CLEAR RX FLAG. 


PETTITT TIT ITI titi titi titi titi ii iitititititititiiiiti titi tii iit! 
*TEST 47 DLV11 INTERUPT TEST 
s*TEST OF DLV11 INTERUPTS. 

s*THIS TEST WILL EXECUTE 32. INTERUPTS ON 

:*BOTH THE RECEIVER AND i AND 

2 *WILL ALSO CHECK THE DATA 

PrverrrerrrrrrerrrrrrerrrcrrrrrrrtittrttrTitittitttitt titi i ttt ie 

010544 000004 18147: 
000002 001162 #2,STIMES ;;D0 2 ITERATIONS 
#175610,R0 45h DLV11 CSR 
; SAV 


7 SAVE 
; VECTORS 
;ON THE 


7 STACK. 
000304 SET TX VECTOR. 
000306 SET PRIO. 
000300 SET RX VECTOR 
000200 000302 #200, 302 :SET PRIO. 
R5 SET DATA POINTER TO ZERO 
000100 000004 #100,4(R0) SET TX IE. 
: R3 SET TIMER TO ZERO. 
000001 : #1,R3 TIME WAITING FOR INTERUPTS. 
2$ :KEEP COUNTING, 
16 :DLVN INTERUPT PROBLEM. 
000306 : (SP)+,306 E 
(SP)+,304 
(SP)+,302 
000300 (SP)+,300 
010672 000444 TST50 PezEXIT TEST 


010674 : ; TRANSMITTER INTERUPTS TO HERE. 
010674 110560 000006 MOVB R5,6(RO) ;LOAD DATA CHAR. 


ek kk ek ek kd td od ot od 
MAAMMAMAM MAMA AAU UI UU UU 


TOPO PO NPY NO NO NY NY — ss 
DWNAUSWNM —O OBNAUS WhO 
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1532 010720 
1534 010722 


1549 011002 


1560 011004 


042760 
052760 
012716 
000002 


000240 


000002 


000004 


001356 


000100 
000100 
010640 


000002 


000040 


000100 
010652 


000100 
000100 
010640 


000002 
001376 
000310 
015244 
177777 


015244 
000001 
177776 


MACY11 30A(1052) 
147 


000004 
000000 


000000 


000000 
000004 


001162 


5$: 


6$: 


7$: 


L 
23-MAR-78 07:51 


DLV11 INTERUPT TEST 


BIC 
BIS 
MOV 
RTI 


#100,4(RO) 
#100,0(RO) 
#1$, (SP) 


3 
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;DSABLE TX INTERUPTS. 
sENABLE RX INTERUPTS. 
SET RETURN 

sEXIT ISR. 


ee INTERUPTS TO HERE. 


2(RO) ,R4 
R5,R4 

6$ 
17 

R5 

#32. oR5 
7$ 


#100,0(RO) 
#3$, (SP) 


#100 ,0(RO) 
#100,4(RO) 
#1$, (SP) 


:GET DATA REVEIVERD 
TA GOOD? 


"BE IF GOOD DATA 

:DLV11 DATA ERROR (INTERUPTS) 
UPDATE DATA CHAR. 

ALL CHARS DONE? 

:BR IF N 


NO 
:DSABLE RX INTERUPTS. 
;SET RETURN 

; RETURN 

;DSABLE RX INTERUPTS 
sENABLE TX INTERUPTS 
:SET RETURN 


OES e tei r etre r iii r iit tri t rir iii iii iit iiiiiiiiiitiiiiiiiiie | 
s*TEST 50 
>*MINI MEMORY TESTS 
;*ALL UNSED MEMORY WILL BE FILLED WITH ALL 1°S 
;*AND THEN EACH ADDRESS WILL BE TESTED 

:*WITH A FLOATING ZERO. 
tt 


MINI MEMORY TEST 


FFARR EEE AEE EAE EAA REREKERAERKEKEE 


TST50: 


#2,STIMES 
mo ea 
#310,R 
#CORMA 


RO 
HTTTT7. (RO)+ 


’ 


1$ 
#CORMAX,RO 
#BITO, (RO) 
# C<1>,R5 
(RO) ,R4 
St 


4 
20 


3;D0 2 ITERATIONS 

:GET MAX MEMORY SIZE. 

PROTECT ABL 

GET LAST ADDRESS USED BY PROGRAM 


TALL MEMORY FILLED? 


[GENERAL ERROR. BIT15<>1! 
‘ALL MEMORY DONE? 


SEQ 0037 


CWQAABO 11WO3 SYSTEM TEST 


CWQAAB.P11 
1585 


22-MAR-78 14:51 


MACY11 30A(1052) 
T50 


mM 3 
23-MAR-78 07:51 PAGE 32 
MINI MEMORY TEST 


SEQ 0038 
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-SBTTL END OF PASS ROUTINE 


pLRRRAAAA AAA Ae AeA AAA eee eee TA eee TATA Tee eA eee eA eee eee eA eeA eee Aeee 
;* INCREMENT THE PASS NUMBER (S$PASS) 

S*TYPE “END PASS #XXXXX"° (WHERE XXXXX IS A DECIMAL NUMBER) 

:*IF THERES A MONITOR GO TO IT 

s*IF THERE ISN'T JUMP TO TST1 


SEOP: 
000004 
001102 STSTNM 7;ZERO THE TEST NUMBER 
001162 STIMES +3 ZERO THE NUMBER OF ITERATIONS 
001100 SPASS ; INCREMENT THE PASS NUMBER 
100000 001100 — ::DON*T ALLOW A NEG. NUMBER 
+ 


SEOPCT: . 1 
SDOAGN 77 YES 
(PC)+,a(PC)+ 3:RESTORE COUNTER 
SENDCT: . 1 


011215 . SENDAG i: TYPE “‘END PASS #°° 
001100 SPASS,-(SP) 7:SAVE SPASS FOR TYPEOUT 

7:GO TYPE--DECIMAL ASCII WITH SIGN 
011212 , SENULL 3: TYPE A NULL CHARACTER 
000042 $GET42: a#42,R0 7:GET MONITOR ADDRESS 

SDOAGN ;:BRANCH IF NO MONITOR 
7:CLEAR THE WORLD 
SENDAD: PC, (RO) ::G0 TO MONITOR 
7:SAVE ROOM 


7 FOR 
000240 3 ;ACT11 
SDOAGN: 
000137 ac Pc)+ ; RETURN 
SRTNAD: . Li gh? 
377 000 SENULL: .BYTE s;NULL CHARACTER STRING 
042412 042116 SENDMG: .ASCIZ <ifocidovem PASS #/ 
051501 020123 


ae eds ss oe ow ot ot 2 ow os = = = 
ee ce ee ce ee et ce ed ee ed et aed ed 
am ee ee ee ed ad od od ow ws ow ows ow ot = 
NSNNAAOUUE & HS SWWNN A Oe eS 
ALMAMWOLOAGLNVOALAUWANWOCO 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
01 


011230 000043 
-SBTTL SCOPE HANDLER ROUTINE 


PPE CITI i Tritt rir ii rir iri irri rir irri iii tiiiitiiiitiiiiiiiiy) 
s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
z*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
;*SW14= LOOP ON TEST 
; INHIBIT ITERATIONS 

LOOP ON ERROR 


::SCOPE=I0T 


011232 SSCOPE: 
032777 000400 167700 BIT #B1T8,aSwR ; CONFIDENCE? 
001425 BE 99$ :BR IF NO 
123737 001102 001442 STSTNM,XXSCOP i WAS THIS TEST ALREADY TYPED OUT? 
011250 001421 99$ R IF YES 
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CWQAAB.P11 
011252 


011322 
011324 
011326 


123737 


104401 


032777 
001101 


000416 
013746 


000413 
105737 


000100 


001102 
001102 
001102 
014746 
001442 
014712 


040000 


000004 
011352 
177060 
000004 


000004 


001103 
001115 
001000 
001110 


001103 
001162 


004000 
001100 


001104 
001162 


000001 


001106 


B 4 
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015242 


001442 


167016 


000004 


001103 
167532 
001106 


167500 


001104 


001104 
001162 


001115 
167406 


SCOPE HANDLER ROUTINE 

STSTNA,LASTN 

998 

STSTNA 

99$ 

STSTNM, XXSCOP 

oXTST 

XXSCOP,-(SP) 

»XSPA 

#B1T14,aSWR 
VER 


BNE $0 
HARAASTART OF CODE FOR THE XOR 
SXTSTR: BR 6$ 


99$: 
1$: 


a@#ERRVEC,-(SP) 
#5$,a#ERRVEC 
a#177060 
(SP)+, a#ERRVEC 
$SSVLAD 

5$: (SP)+, (SP)+ 
ie -@#ERRVEC 


SEQ 0040 


LEGAL TEST # 
;BR IF NO 

sTEST 0? 

;BR IF YES (THERE IS NO TEST 0) 
;LOAD FOR NEXT TIME 

* TYPE bis lt 


° 
e 
. 
. 
. 


: LOOP ON PRESENT TEST? 
3YES IF SW14=1 
TESTERSHMA# 
37 1F RUNNING ON THE ‘'XOR'' TESTER CHANGE 
:;THIS INSTRUCTION TO A ‘‘NOP’’ (NOP=240) 
3:SAVE THE CONTENTS OF THE ERROR VECTOR 
7:SET FOR TIMEOUT 
3: TIME OUT ON XOR? 
3 ;RESTORE THE ERROR VECTOR 
3:GO TO THE NEXT TEST 
3:CLEAR THE STACK AFTER A TIME OUT 
: sRESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 


7 
hoe ag THE XOR" TESTERIAMAR 


3$ 
 aapecsaaats oe 
#B1T09,aSWR 
4$ 
SLPERR,SLPADR 
SOVER 

SERFLG 
STIMES 

1$ 
#BI1T11,aSwR 
1$ 

SPASS 

1$ 


SICNT 
STIMES,SICNT 
SOVER 


1$: #1,S1CNT 
MO SMXCNT,STIMES 
SSVLAD: STSTNM 
M (SP), SLPADR 
(SP), SLPERR 
SESCAPE 
M #1, SERMAX 
SOVER: STSTNM, @DISPLAY 
M SLPADR, (SP) 


TI 
SMXCNT: 100 
-SBTTL ERROR HANDLER ROUTINE 


ae es ——— OCCURRED? 
ele wae FOR THIS TEST OCCURRED? 
+s LOOP ON ERROR? 
:BR IF NO 
;:SET LOOP ADDRESS TO LAST SCOPE 


:;ZERO THE ERROR FLAG 
:;;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
;;ESCAPE TO THE NEXT TEST 
:; INHIBIT ITERATIONS? 
:3:BR IF YES 
seal FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
:INCREMENT ITERATION COUNT 
TI CHECK THE NUMBER OF ITERATIONS MADE 
::BR IF MORE ITERATION REQUIRED 
> sREINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
:: COUNT TEST NUMBERS 
7:SAVE SCOPE LOOP ADDRESS 
:;SAVE ERROR LOOP ADDRESS 
:;CLEAR THE ESCAPE FROM ERROR ADDRESS 
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
7;DISPLAY TEST NUMBER 
: FUDGE RETURN ADDRESS 


XES PS 
72:MAX. NUMBER OF ITERATIONS 


PPE SSSA ARRRSASASASEASA LARA SALAS REAL ASLELE ASSESS EERE AER EASES ES OO 








Om 
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FUN OVO ONOUSWN—O 


NN NNN NNN NN NNN NSS 
NOP NOI NPY — et tt St St a 


VN 
meron 
NOu 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


011544 


105237 


104401 
005777 


013716 
022737 
001001 
000000 


010046 


011037 


001103 


001102 
002000 
001166 
001112 
001116 
000002 
167300 
020000 


012042 
001173 


167274 
001000 


001110 
001164 


001164 
011176 


010000 


000100 


000002 


012040 


MACY11 30A(1052) 
ERROR HANDLER ROUTINE 


s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM — AND THE ADDRESS OF THE ERROR CALL 

;*AND GO TO XERR1 ON ERROR 
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


167362 
167352 


167262 


000042 


167216 


167210 


:*SW15= : 
:*SW13=1 
:*SW10=1 
s*Sw09=1 
7*CALL 

** 


SERROR: 
7$: 


C 
23-MAR-78 07:51 


HALT ON ER 


4 
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ROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 


LOOP ON ERRO 
N 73ER 
SERFLG 

7$ 
STSTNM,a@DISP 
#B1T10,aSWR 
1$ 

, SBELL 
SERTTL 

(SP), SERRPC 
#2,SERRPC 
@SERRPC,SITE 
#B1T13,aSWR 
208 


PC,XERR1 
- SCRLF 


@aSwWR 
3$ 


#B1T09,aSWR 
4$ 


SLPERR, (SP) 
—— 


$ 
SESCAPE, (SP) 
#SENDAD ,a#42 
6$ 


RO,-(SP) 
R1,-(SP) 
#B1T12,aSWR 
90$ 

a ,@$TKS 


#TEST.TABLE+ 
SLPADR,R1 


#2, 
(RO) 
90$ 
R1,(RO)+ 
91$ 
(RO) ,92$ 


R 
ROR=EMT AND N=ERROR ITEM NUMBER 


3:SET THE ERROR FLAG 
;;DON'T LET THE FLAG GO TO ZERO 
LAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
;;BELL ON ERROR? 
3:NO - SKIP 
3 ;RING BELL 
;;COUNT THE NUMBER OF ERRORS 
3:GET ADDRESS OF ERROR INSTRUCTION 


MB ;;STRIP AND SAVE THE ERROR ITEM CODE 
::SKIP TYPEOUT IF SET 
3;SKIP TYPEOUTS 
::G0 TO USER ERROR ROUTINE 


3;HALT ON ERROR 

7zSKIP IF CONTINUE 

:;HALT ON ERROR! 

eee ae ERROR SWITCH SET? 
3;FUDGE RETURN FOR LOOPING 

fe FOR AN ESCAPE ADDRESS 
:;BR IF NONE 

;;FUDGE RETURN ADDRESS FOR ESCAPE 


3:ACT-11 AUTO-ACCEPT? 
;;BRANCH IF NO 


:SAVE RO 
;SAVE R1 
ZESCAPE ss NEXT TEST ON ERROR? 


IF 
ISSUE INIT 
7 SET lay ENABLE 
7 SET TO 0 
2,R0- a FIRST TEST PC 
:GET CURRENT TEST PC 
:MAKE IT EQUALT TO TEST TABLE ENTRY 
sAT END GOTO 90$ 


:L00K y* CURRENT TEST. 
R IF NOT FOUND 
‘SAVE TEST PC 


SEQ 0041 
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011770 062737 000002 012040 #2,92$ POP PAST SCOPE 
001104 #1,SI1CNT 3 
001162 SMXCNT,STIMES § ; 
#STACK,SP sSET SP 
#0,-(SP) :SET PTYO 
92$,-(SP) 
011500 SSVLAD 60 INTO SCOPE ROUTINE 
(SP)+,R1 sRESTORE R1 
(SP)+,R0 sRESTORE RO 


sEXIT 
012040 000000 : sSAVE TEST PC 
012042 010037 001422 : - RO,SAVRO 


34 
012072 113737 001102 001436 MOVB STSTNM,MSKTST 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


OES e PIC ii sti titi tii tit ri iri iii iii iii titi iii iitiiiiiii iit) 

;*THIS ROUTINE USES THE ‘ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘‘ERROR TABLE*’ (S$ERRTB), 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


012100 SERRTYP: 
104401 001173 TYPE - SCRLF 33‘"CARRIAGE RETURN’ & "'LINE FEED" 
RO,-(SP) 7:SAVE RO 
RO :;PICKUP THE ITEM INDEX 
001114 a#SITEMB,RO 


012114 001004 1$ :31F ITEM NUMBER IS ZERO, JUST 
::TYPE THE PC OF THE ERROR 

012116 013746 001116 SERRPC,-(SP) :;SAVE SERRPC FOR TYPEOUT 
7;ERROR ADDRESS 

012122 104402 to b+ lead ASCIICALL DIGITS) 
:;ADJUST THE INDEX SO THAT IT WILL 
ae WORK FOR THE ERROR TABLE 


RO 
001176 #SERRTB,RO ::FORM TABLE POINTER 
012152 (RO)+,2$ 3;PICKUP “‘ERROR MESSAGE*' POINTER 
3$ ae TYPEOUT IF NO POINTER 
7: TYPE THE “ERROR MESSAGE"' 
: , 0 :3""ERROR MESSAGE"* POINTER GOES HERE 
001172 -SCRLF 33""CARRIAGE RETURN’ & "LINE FEED" 
012170 : (RO)+,4$ 7;PICKUP ‘‘DATA HEADER" POINTER 
5$ ;;SKIP TYPEOUT IF 0 
33 TYPE THE ‘DATA HEADER’ 
: . 0 3:"'DATA HEADER’’ POINTER GOES HERE 
001173 . SCRLF 33"CARRIAGE RETURN’ & "‘LINE FEED" 
: R1,-(SP) 73SAVE R1 
(RO)+,R1 : PICKUP “DATA TABLE" wee 
9$ ;BR IF NO DATA TO BE TYPED 
012204 012000 (RO)+,RO ::PICKUP "DATA FORMAT’ POINTER 
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012206 


012234 
012236 


012250 


012254 


012334 


105720 


000402 
013146 
104405 
005711 
001403 
104401 
000764 


012601 


012254 


105737 


105037 


012250 


001173 
000 


001157 


000002 


000002 . 


000011 
000200 


012470 


MACY11 30A(1052) 


6$: 


9$: 
10$: 


E 
23-MAR-78 07:51 
ERROR MESSAGE TYPEOUT ROUTINE 


(RO)+ 

7$ 
a(R1)+,-(SP) 
8$ 
a(R1)+,-(SP) 
(R1) 

9$ 

118 

6$ 

(SP)+,R1 
(SP)+,R0 


- SCRLF 
PC 


RTS 

118: eASCIZ / / 
EVEN 

-SBTTL TYPE ROUTINE 


CeCe T TCT iti reir titre rir iii tir tiii iii ri ii iit iii iii: 
“ #ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 


> *NOTE1: 

: *NOTE2: 
;*NOTES: 
s@ 


3*CALL: 


3*1) USING A TRAP INSTRUCTION 
2@ 


TYPE 
TYPE 


MESADR 


$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


4 
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33"OCTAL’' OR “DECIMAL” 

;:BR IF DECIMAL 

3;SAVE a@(R1)+ FOR TYPEOUT 

3:GO TYPE--OCTAL ASCII(ALL DIGITS) 


;;SAVE a@(R1)+ FOR TYPEOUT 
::GO TYPE--DECIMAL ASCII WITH SIGN 
i318 oo ANOTHER NUMBER? 


:BR IF 
is TYPE 1w0(2) SPACES 


7 RESTORE R1 
;;RESTORE RO 
a wel is RETURN’ @ “‘LINE FEED"’ 


ETUR 
i TwoC2) SPACES 


SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


»MESADR 


STPFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),RO 
(RO)+,-(SP) 
4$ 


(SP)+ 
(SP)+,RO 
#2, (SP) 


#HT, (SP) 
8$ 

#CRLF, (SP) 
5$ 

(SP)+ 


SCHARCNT 


:;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3771S THERE A TERMINAL? 
37:BR IF YES 

7;HALT HERE IF NO TERMINAL 

;;LEAV VE 

7:SAVE RO 

3:GET ADDRESS OF ASCIZ STRING 

3;PUSH CHARACTER TO BE TYPED one STACK 
77;BR IF IT ISN'T THE TERMINATO 

sz 1F TERMINATOR POP IT OFF THE ” race 

7 ;RESTORE RO 

yee RETURN PC 


ee 


7;BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


3:POP <CR><LF> EQUIV 
3; TYPE A CR AND LF 


7:CLEAR CHARACTER COUNT 


SEQ 0043 
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012340 000755 2$ 3;GET NEXT CHARACTER 

012342 004737 012424 5$: PC,STYPEC 3:GO TYPE THIS CHARACTER 

012346 123726 001156 6$: SFILLC,(SP)+ 7:18 IT TIME FOR FILLER CHARS.? 

012352 001350 2$ ::1F NO GO GET NEXT CHAR. 

012354 013746 001154 SNULL ,~(SP) ::GET # OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 

012360 105366 000001 : 1(SP) ;;DOES A NULL NEED TO BE TYPED? 

012364 002770 6$ ;;BR IF NO--GO POP THE NULL OFF OF STACK 

012366 004737 012424 PC,STYPEC 3;GO TYPE A NULL 

012372 105337 012470 SCHARCNT ;;D0 NOT COUNT AS A COUNT 

012376 000770 7$ ; LOOP 


;HORIZONTAL TAB PROCESSOR 


012400 112716 000040 8$: #' , (SP) 3 REPLACE TAB WITH SPACE 
012424 9$: PC, STYPEC si: TYPE A SPACE 
000007 012470 #7, SCHARCNT 3:BRANCH IF NOT AT 
9$ 3; TAB STOP 
(SP) + 3:POP SPACE OFF STACK 
BR 2$ 3;GET NEXT CHARACTER 
166520 STYPEC: as Srrete s:WAIT UNTIL PRINTER IS READY 
Y 
000002 166512 2(SP) ,aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 #CR,2(SP) 3:18 CHARACTER A CARRIAGE RETURN? 
1$ ;;BRANCH IF NO 
012470 SCHARCNT : 3 YES~-CLEAR CHARACTER COUNT 
STYPEX EXIT 
000012 000002 1$: #LF,2(SP) iI CHARACTER A LINE FEED? 
STYPEX ;;BRANCH IF YES 
INCB (PC) + ;;COUNT THE CHARACTER 
SCHARCNT: .WORD 3; CHARACTER COUNT STORAGE 
012472 000207 STYPEX: RTS PC 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


RRA A EAE AEE 
:#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT. 
i #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
** : 
* MOV NUM, =-(SP) ;;NUMBER TO BE TYPED 
;* TYPOS 3:CALL FOR TYPEOUT 
;@ -BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;@ -BYTE M&M ::M=1 OR 0 
;@ 32 1=TYPE LEADING ZEROS 
‘? 320=SUPPRESS LEADING ZEROS 
oe 


:*STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $STYPOC 

7*CALL: 

:* MOV NUM, ~(SP) ;;NUMBER TO BE TYPED 

;@ PON ;:CALL FOR TYPEOUT 


* 
i s$TYPOC~=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
* MOV NUM, -(SP) :;NUMBER TO BE TYPED 


— oe os oe ot 
oonowowononowonvo 
Mn a SS 
—SCODONAUEW 
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had TYPOC 7;CALL FOR TYPEOUT 


017646 000000 STYPOS: tit a(SP),-(SP) ::PICKUP THE MODE 
012717 1(SP),SOFILL 3;LOAD ZERO FILL SWITCH 
(SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
000002 2, (SP) ;;ADJUST RETURN ADDRESS 


B 
000001 012717 $TYPOC: 7;SET THE ZERO FILL SWITCH 
000006 012721 M ° 3;SET FOR SIX(6) DIGITS 
000065 012716 S$TYPON: : ee an ITERATION COUNT 


- E 
012721 SOMODE+1, oR4 :;GET THE NUMBER OF DIGITS TO TYPE 


000006 #6,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
012720 R4, SOMODE ;;SAVE IT FOR USE 
012717 SOFILL,R4 ;;GET THE ZERO FILL SWITCH 
000012 12¢SP),R5 :;PICKUP THE INPUT NUMBER 
R3 :;CLEAR THE OUTPUT WORD 

; ROTATE MSB INTO ‘'C"’ 

::G0 DO MSB 

;:FORM THIS DIGIT 


: R3 3:GET LSB OF THIS DIGIT 
012720 3; TYPE THIS DIGIT? 
7$ 3:BR IF NO 
177770 P 3:;GET RID OF JUNK 
4$ 7: TEST FOR O 
3; SUPPRESS THIS 0? 
3:;BR IF YES 
: ;:DON'T SUPPRESS ANYMORE 0'S 
000060 7;MAKE THIS DIGIT ASCII 
#' R3 3:MAKE ASCII IF NOT ALREADY 
3;SAVE FOR TYPING 
8 3:GO TYPE THIS DIGIT 
012716 : 3;COUNT BY 1 
2$ ::BR IF MORE TO DO 
3 :BR IF DONE 
ey LAST D.GIT ISN'T A BLANK 
0 00 a Fea DIGIT 


3 RE R3 
000002 000004 :;SET THE STACK FOR RETURNING 


(SP)+, (SP) 
; RETURN 


::STORAGE FOR ASCII DIGIT 
;; TERMINATOR FOR TYPE ROUTINE 
:;OCTAL DIGIT COUNTER 
000 P. 23 ZERO FILL SWITCH 
012720 000000 : .WORD 0 NUMBER OF DIGITS TO TYPE 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
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RRR A RARER RAAT AE ATTA ETAT ATTA RAAT A RR eee ee 
STIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 

:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 

;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

;*REPLACED WITH SPACES. 

> *CALL: 

“hed MOV NUM ,-(SP) ;;PUT THE BINARY NUMBER ON THE STACK 

:* DS 3:GO0 TO THE ROUTINE 


012722 S$TYPDS: 
010046 M RO,-(SP) ;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
3;PUSH R3 ON STACK 
;;PUSH R5 ON STACK 
020200 #20200,-(SP) 3;SET BLANK SWITCH AND SIGN 
000020 20(SP),R5 ::GET THE INPUT NUMBER 
1$ :;BR IF INPUT IS POS. 
R5 7;MAKE THE BINARY NUMBER POS. 
000055 000001 #'=,1¢SP) 7;MAKE THE ASCII NUMBER NEG. 
1 RO ;;ZERO THE CONSTANTS INDEX 
013136 #SDBLK ,R3 3;SETUP THE OUTPUT POINTER 
000040 #' ,(R3)+ 3;SET THE FIRST CHARACTER TO A BLANK 
: R2 ;:CLEAR THE BCD NUMBER 
013126 SDTBL(RO),R1 3:GET THE CONSTANT 
R1,R5 73: FORM pve BCD DIGIT 
::;BR IF DONE 
s INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
7:;CHECK IF BCD DIGIT=0 
:zFALL THROUGH IF 0 
7:STILL DOING LEADING 0'S? 
ssBR IF VES 

> ;MSD? 


6$ ::BR IF NO 
000001 177777 P :;YES--SET THE SIGN 
000060 6$: #'0,R2 :;MAKE THE BCD DIGIT ASCII 
000040 : . 7;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
:;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
:;JUST INCREMENTING 
000010 7:CHECK THE TABLE INDEX 
2$ ::GO DO THE NEXT DIGIT 
3:GO TO EXIT 
::GET THE LSD 
::GO CHANGE TO ASCII 
93 Es a LSD THE FIRST NON-ZERO? 
177777 177776 . “oe 2s YES~=SET THE tok FOR TYPING 


ff OO 
c- 


wn 
AAA MAMNNDDDDAD=s 


THE TERMINAT 
(SP)+,R5 33 STACK INTO R5 
(SP)+,R3 33 STACK INTO R3 
(SP)+,R2 ;;POP STACK INTO R2 
(SP)+,R1 ;;POP STACK INTO R1 
013106 012600 (SP)+,RO ;;POP STACK INTO RO 
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CWQAAB.P11 
013110 


013136 


013146 


013264 


013266 
013270 
013274 


104401 
ai Seta 


000004 


011646 


000002 


010346 
012703 
022703 


013136 
000002 


000004 
165762 


165756 
177600 
000004 
165730 
165724 
177600 
000021 
000004 
000004 


000040 


013374 
013404 
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000004 


000002 


000004 
000004 
000023 


000140 
000175 
000004 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0047 


TYPE 


MOV 
MOV 
T 
SDTBL: 


10. 
SDBLK: .BLKW 4 
-SBTTL TTY INPUT ROUTINE 


, SOBLK 
2(SP),4(SP) 
(SP)+, (SP) 


;;NOW TYPE THE NUMBER 
;;ADJUST THE STACK 


;;RETURN TO USER 


SRR ER EEE 


* ENABL LSB 
-DSABL LSB 


SPREE REE EEE EERE REE EEE EERE EAE AEE 


Stmas ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
> * CALL: 
ie RDCHR 

;* RETURN HERE 
-* 


SRDCHR: 
M 
1$: 


4$: 


(SP),-(SP) 
4(SP),2(SP) 
asTKks 


1$ 
a$TKB,4(SP) 
# C<177>,4(SP) 
4(SP) ,#23 
3$ 
asTKs 
$ 


2 
a$TKB,-(SP) 
# C177, (SP) 
(SP)+,#21 
2$ 

1$ 

? alla 
4(SP),#175 
4$ 


#40,4(SP) 


3; INPUT A SINGLE CHARACTER FROM THE TTY 
;CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 


3:PUSH DOWN THE PC 

7:SAVE THE PS 

7: WAIT FOR 

:;A CHARACTER 

7;READ THE TTY 

::GET RID OF JUNK IF ANY 

3:18 IT A CONTROL-S? 

;;BRANCH IF NO 

;;WAIT FOR A CHARACTER 

;;LOOP UNTIL ITS THERE 

3:GET CHARACTER 

3;MAKE IT 7-BIT ASCII 

::1S IT A CONTROL-Q? 

aeut NOT DISCARD IT 
RESUME 

IIs IT UPPER CASE? 

;:BRANCH IF YES 

7:18 IT A SPECIAL CHAR? 

;;BRANCH IF YES 

:;MAKE IT UPPER CASE 

::GO BACK TO USER 


PERERA REA AAA AAA AEE AAA EAE AAA AERA 


pr ROUTINE WILL INPUT A STRING FROM THE TTY 


ROL 


IN 


RETURN HERE 


: MOV 
MOV 
CMP 


R3,-(SP) 
#STTYIN,R3 
#STTYINGS. RS 


3: INPUT A STRING FROM THE TTY 
; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;; TERMINATOR WILL BE A BYTE OF ALL O'S 


7 SAVE R3 
3:GET ADDRESS 
;;BUFFER FULL? 





Cw 
Cw 


Cwa 


013300 


013434 


013440 


013512 


eee a SYSTEM TEST 
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101405 


040 
036440 


011646 


062601 


000177 
001172 
013372 
013372 
000015 
177777 
001174 


000004 
013374 


005015 
006507 
053523 

000 
047040 
000040 


000004 


177770 
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000002 
000004 


000 
000012 
020122 


053505 


000002 


TTY INPUT ROUTINE 
4$ 


(SP)+, (R3) 
oa 


3 

, SQUES 

1$ 

(R3) ,9$ 
.9$ 

#15, (R3)+ 
2s 

-1(R3) 
-$LF 
(SP)+,R3 
(SP) ,-(SP) 


4(SP),2(SP) 
#STTYIN,4(SP) 


9$: . 0 
‘ 0 
STTYIN: . 8. 
SCNTLU: / U/<15><12> 
SCNTLG: . / G/<15><12> 


SMSWR: . <15><12>/SWR = 


SMNEW: .ASCIZ / NEW = / 


Ss0n iF YES 

3;GO READ ONE CHARACTER FROM THE TTY 
3;GET CHARACTER 

;;1S IT A RUBOUT 

3;SKIP IF NOT 

sc TYPE A °?° 

3;:;CLEAR THE BUFFER AND LOOP 

3:ECHO THE CHARACTER 


3; CHECK FOR RETURN 

;;LOOP IF NOT RETURN 

:;CLEAR RETURN (THE 15) 

3: TYPE A LINE FEED 

7 RESTORE R3 

;;ADJUST THE STACK AND PUT ADDRESS OF THE 
+e FIRST ASCII CHARACTER ON IT 


; RETURN 

ao bop Ay ASCII CHAR. TO TYPE 

33; TERMINAT 

; sRESERVE 3 BYTES FOR TTY INPUT 
CONTROL ‘'U"' 

7: CONTROL ''G" 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


FFARR ERE EEE EE EEE AEE EAE EEE EREE 


:*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


:*CHANGE IT TO BINARY. 


:*CALL: 

:* RDOCT 

3¢ RETURN HERE 
;* 


$RDOCT: (SP) ,-(SP) 
M 4(SP),2(SP) 
RO,-(SP) 
R1,-(SP) 
R2,-(SP) 


(SP)+,RO 
R1 


R2 
(RO)+,-(SP) 
3$ 


(SP)+,R1 


;;READ AN OCTAL NUMBER 
;;LOW ORDER BITS ARE ON TOP OF THE STACK 
::HIGH ORDER BITS ARE IN S$HIOCT 


>;PROVIDE SPACE FOR THE 

:; INPUT NUMBER 

;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;;PUSH R2 ON STACK 

7:READ AN ASCIZ LINE 

;;GET ADDRESS OF 1ST CHARACTER 
::CLEAR DATA WORD 


:;PICKUP THIS CHARACTER 
sz IF ZERO GET OUT 


s3*2 
33%4 
328 


3;STRIP THE ASCII JUNK 
;;ADD IN THIS DIGIT 
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013514 000764 


000012 
013540 


013540 000000 
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READ AN OCTAL NUMBER FROM THE TTY SEQ 0049 


3$: 


$HIOCT: 


RTI 
«WORD 


2$ 

(SP)+ 
R1,12(SP) 
R2,$HIOCT 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


0 


; LOOP 
;;CLEAN TERMINATOR FROM STACK 
7;SAVE THE RESULT 


;;POP STACK INTO R2 

::POP STACK INTO R1 

;;POP STACK INTO RO 

; ;RETURN 

:;HIGH ORDER BITS GO HERE 








OnpmDmwDmna m 
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-SBTTL TRAP DECODER 


PRR A RAR AAA A AAA AAA ATER TE TATE EAT ETAT RARER ee eee eee eee Eee 
*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘’TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
7*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


;*GO TO THAT ROUTINE. ; 


013542 010046 STRAP: RO,-(SP) 3;SAVE RO 
000062 3:GET TRAP ADDRESS 
0) ; BACKUP BY 2 
3;GET RIGHT BYTE OF TRAP 
RO :;POSITION FOR INDEXING 
013576 anges :: INDEX TO TABLE 


013562 000200 3:GO TO ROUTINE 


3; THIS IS USE TO HANDLE THE ‘'GETPRI"’ MACRO 


013564 011646 STRAP2: MOV (SP) ,-(SP) :;MOVE THE PC DOWN 
013566 016666 000004 000002 MOV 4(SP),2(SP) :;MOVE THE PSW DOWN 
013574 000002 RTI :;RESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “‘TRAP’’ INSTRUCTION. 


: ROUTINE 


013576 013564 STRPAD: STRAP2 
$ 3 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
3; CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
013610 012722 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


013612 013146 SRDCHR ;;CALL=RDCHR TRAP+6(104406) TTY TYPEIN CHARACTER ROUTINE 
013614 013266 SRDLIN ;;CALL=RDLIN TRAP+7(104407) TTY TYPEIN STRING ROUTINE 
013616 013440 $RDOCT ;;CALL=RDOCT TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY 
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2196 013620 ROMMAP : 
2197 013620 000400 000440 WORD 000400, arte 000167 ,000416,132710,100200,001775 
013636 05.,177560,001406,005703 
, 120527000101 .001077, 000207. 042705,177760 
126560, 173064 ,000002, Sosene’ -000207 


6414 ,007616 
012700, 175610,012706 000500, 005004 ,005024 012737 
173130000004 ,000773, 162704 ,000004 ,010406,005003 
004767 .000130,020527 ,040001 ,001372,004767.000116 


00 0731 ,004767.000046,005702 
100402,110521, “000772, 105703,001403,004767,000124 


006305, 006305 .042705, 170017052605 ,060503 
005302 ,000207 .004767.177726.010504 .004767.177720 
opted Ge 105005,150405, sestes’ 112705 ,000317,000405 

112705 ,000102 ,000402,112705 000215, 105760,000004 
100375, 110560 ,000006 ,000207,017640,002415,112024 
005004 ,005005 ,012700 
177500 ,000005 .010410 
012701,173420,012702,000375,112103,112110,100407 
130310,001776, 105202. 100772. 116012 ,000002,000771 
° 005710, 100403,005002,120312.001406,005205 020527 
014334 000010 002001 000746 ‘ 000010002001 ,000746,000000,000112 
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014620 017746 164322 KBISR: aSTKB,-(SP) 7SAVE CHAR 

000200 8 #BIT7, (SP) ;CLEAR BIT SEVEN 

000024 #24, (SP) sWAS IT < T> (TEST NO.) 
3$ ;BR IF NO 

001100 #STACK,SP ;SET STACK 

004354 x1$ 3;GO TO ROUTINE 

000007 : #7, (SP)+ sWAS IT < G>? 
1$ ;BR IF NO 

014716 oXSWR sSWR= 

164254 aSWR,-(SP) : 


014727 EQUALS : 


013374 STTYIN sWAS JUST <CR> HIT? 
2s :BR IF YES 
164232 (SP) ,aSwR SET UP SWR 
(SP)+ oI ates 
sEX! 


SEQ 0052 


000040 


XSPA: ,, 
024522 : <200>""(SWR)=/"" 
000 “/=/" 


200 052123 - <200>/TEST NO: / 
014746 052200 000040 : <200>/T / 


014752 BREPLY. TABLE: 
165250 000004 165250,004 


0 000000 ,000 
015032 000000 000000 000000 ,000 


- ;DUBUG PC 
MOV SP),1$ 
.1$ 
a1$,2$ 
106400 9 eae 
+ 


;REAL TRAP TO ADDRESS '4'. 


015036 011637 015110 


015110 
000002 
000004 000002 


1$: 
000000 2$: 0 
TEST.TABLE: 
000000 0 


004432 TST1 ;PC FOR TEST NUMBER 1 
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004526 


000001 
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TRAP TABLE 


sPC 
;END PASS PC 
; TABLE TERMINATOR 


NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 


NUMBER 2 


NUMBER 


—ONAUSWN—O 


NUMBER 23 


NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 


SEQ 0053 
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000001 701 1569 


6 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
7 
9 


000100 1231 1235 
000200 2198 


— oo os INNO 
WUITWEUA NOOO Ww 


610* 1390 1395* 
1389 1394* 1411* 


001406 


001410 
003720 


002522 


002733 
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003021 


3278 
362* 1691* 1712+ 


353 
235 241 247 259 265 277 


253 271 295 301 3278 


363* 1657 1658*  1660*  1663* 
2187 2188 2189 2190 2193 2194 


383* 
22884 
1899 


1562 
1772* 


39 


30 
104406 21934 
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CWQAAB.P11 
ROLIN = 104407 
RODOCT = 104410 
RESVEC= 000010 
ROMMAP 013620 
SAVRO 001422 
SAVR1 001424 
SAVR2 001426 
SAVR3 001430 
SAVR4 001432 
SAVRS 001434 
SETTST 003730 
STACK = 001100 
START 003734 
STKLMT= 177774 
SWR 001140 
SWREG 000176 
SwO = 000001 
SwOO = 000001 
SwO1 = 000002 
SWO2 = 000004 
SWwO3 = 000010 
SWO4 = 000020 
SWwOS = 000040 
SWO6 = 000100 
SwO7 = 000200 
SwO8 = 000400 
SWO9 = 001000 
SW1_ = = 000002 
SW10 = 002000 
SW11 = 004000 
SWi2 = 010000 
SW13 = 020000 
SW14 = 040000 
SW15 = 100000 
SW2 = 000004 
SW3 = 000010 
SW4 = 000020 
SW5 = 000040 
SW6 = 000100 
W7 = 000200 
W8 = 000400 
wW9 = 001000 
TBITVE= 000014 
TEST.T 015114 
TKVEC = 000060 
TPVEC = 000064 
TRAPVE= 000034 
TRTVEC= 000014 
TSTFLG 001440 
TST1 004432 
TST10 005506 
TST11 =©005574 
TST12 005636 
TST13. =©005700 
TST14 =—005742 


21944 
21954 


1746 


341* 


327% 
4144 
2253 


MACY11 30A(1052) 
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2209 


2197 
1766* 


1770* 
1771* 


1757 


353* 
2212+ 


22444 


342* 


389 
1619 
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2201 


355 361* 1638 1652 1670 


391* 
2246 


1677 


1713 


1720 


1725 


SEQ 0056 


1728 
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006004 


104401 1609 1647 1650 1715 1723 1781 1798 1800 1803 
8 1959 2034 2095 2098 2102 21864 2205 2208 
104402 2207 


18964 
343 344 
000001 





CWQAABO 11WO3 SYSTEM TEST 


CWQAAB.P11 


SCNTLG 
SCNTLU 


013411 


eeekee 


000000 


000001 


012716 
012720 
011526 
001100 
000051 


001172 
013146 
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1766 
20424 
16174 


1735 


1781 


1668 
1690* 


1718* 


1766 
1731 


1800 


1674* 
1695 


1719 


1733 
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1805 1825 1864 


1695 1710* 1766 


1766 1787 


1766 


405 1672* 1687* 


1899 


1692 


2111 


1694 


1747 


SEQ 0058 
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CWQAAB.P11 22-MAR-78 14:51 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0059 
SRODEC= eteeee YJ 2196 
SROLIN 013266 20878 2194 
RDOCT 013440 21278 = 2195 
RDSZ = 000010 20804 
RTNAD 011210 16194 
R2A = teteee UJ 2196 
SAVRE= seeeee 2196 
SCOPE 011232 337 16374 
SETUP= 000027 3278 336 337 339 341 343 344 345 347 369 372 1596 1638 
1716 1728 1735 2048 2117 
SSTUP = 177777 3278 
SVLAD 011500 1661 16864 1760 
SWR = 167000 rad 13 18 19 20 21 22 23 24 25 187 188 189 
344 345 347 348 415 442 469 490 522 577 625 667 692 


SSWRMK= 000000 1634 

TIMES 001162 1874 344% 522* 625* 1044* 1063* 1127* 1424* 1505* 1561* 1597% 1675* 1682 
1685* 1694 1756* 

S$TKB 001146 179# 2046 2063 2069 2197 

STKS 001144 1784 387* 1132* 1744* 2046 2061 2067 

STMPO = =©001160 1864 549* 551 1101* 1102* 1103 

STN == 000051 on 13 390 407 4154 435 4428 461 4694 482 490# 507 5224 
568 577# 615 6254 659 667# 684 6924 706 7144 728 7368 750 


1 
1212 12224 1256 12644 1282 1291# 1308 1317# 1335 13454 1380 13884 1415 


STPB 001152 1814 1888* 1899 
STPFLG 001157 1854 1846 1899 
STPS 001150 1804 1886 1899 
STRAP 013542 341 21634 
TRAP2 013564 21748 2185 
TRP = 000011 21784 21878 21884 2189 2190 2191% 2193 21944 21954 21964 
STRPAD 013576 2168 21854 
TSTNM 001102 at. 398* 1596* 1629 1640 1642 1644 1646 1686* 1691 1695 1712 1766 
STTYIN 013374 2088 2089 2106 2110# 2210 
STYPBN= steeee 2191 
STYPDS 012722 19884 2190 
STYPE 012254 1846# 2178 2186 
TYPEC 012424 1867 1874 1881 18864 1887 
STYPEX 012472 1892 1894 1897# 
STYPOC 012520 1929# 2187 
STYPON 012534 1928 19314 2189 
STYPOS 012474 19244 2188 
SXTSTR 011324 16554 
SSGET4= 000000 16124 
SOFILL 012717 1925* 1929 1939 19744 
S4OCAT= teeter 1652 1722 
. = 015246 1384 1424 1474 1554 193 334 347 348 475 534 539 544 559 
597 600 636 697 703 719 725 741 747 763 769 785 791 
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857 oe, 


1899 2111 





J 5 
CWQAABO 11WO3 SYSTEM TEST MACY11 30A(1052) 23-MAR-78 07:51 PAGE 57 
CWQAAB.P11 22-MAR-78 14:51 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0061 


COMMEN 136# 
ENDCOM 1364 
ERROR 30# 427 450 476 500 535 545 550 560 589 601 637 650 677 698 


ESCAPE 1364 
GETPRI 136# 
ETSWR 1364 3724 


SG 407# 409 4344 437 4614 463 481# 484 5064 509 567# 570 6144 617 6584 
661 6834 68 7054 708 7278 730 7498 752 7714 774 7934 796 8154 818 
837# 840 8594 6 8814 884 9034 06 9254 928 9474 9694 972 9918 


11864 1189 12114 1214 12554 1258 12814 1284 1307# 1310 13344 1337 1379# 1382 14144 


EWTST 1364 407 435 461 482 507 568 615 659 684 706 728 750 772 794 
816 838 860 882 904 926 948 970 992 1014 1037 1056 1077 1120 1138 


POP 136# 2029 2150 

USH 136# 1988 2129 

EPORT 136# 

SCOPE 314 414 44] 468 489 521 576 624 666 691 713 735 757 779 801 


823 845 867 889 911 933 955 977 999 1021 1043 1062 1086 1126 1145 


SETPRI 1364 
SETTRA 2178 2187 2188 2189 2190 2193 2194 2195 
SETUP 1364 328 


SKIP 136# 390 1525 
SLASH 136# 
SPACE 136# 


STARS 136# 151 193 407 413 435 440 461 467 482 488 507 520 568 575 


SSKIP 34 475 534 S44 597 600 697 703 719 725 741 747 763 769 785 
791 807 813 829 835 851 857 873 879 895 901 917 923 939 945 
961 967 983 989 1005 1011 4 1033 1050 1070 1098 1105 1114 1134 1178 
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659 706 728 750 772 794 
mt 1056 1077 1120 1138 


“$TYPE 
"$TYPO 


- ABS. 015246 


ERRORS DETECTED: 0 


CWQAAB.BIN, CWQAAB.LST/CRF/SOL/NL:TOC=CWQAAB.P11 
RUN-TIME: 20 10 .9 SECONDS 

RUN-TIME RATIO: 92/32=2.8 

CORE USED: 23K (45 PAGES) 





